

























MICHAEL ORWIN’S ZX81 CASSETTES 

THE BEST SOFTWARE (BY VARIOUS AUTHORS) AT LOW PRICES 


QUOTES 

"Michael Orwin's£5 Cassette Two is very good value. 
It contains 10 stolid well designed games which work, offer 
plenty of variety and choice, and are fun." 

From the ZX Software review in 
Your Computer, May '82 issue. 

"I had your Invaders/React cassette ... I was 
delighted with this first cassette." 

P. Rubython, London NW10 
"I have been intending to write to you for some days 
to say how much I enjoy the games on 'Cassette One' 
which you supplied me with earlier this month." 

E.H., London SW4 
"... I previously bought your Cassette One and 
consider it to be good value for money!" 

Richard Ross-Langley 
Managing Director 
Mine of Information Ltd. 


CASSETTE 1 
(eleven Ik programs) 

machine code: 

React, Invaders, Phantom aliens, Maze of death. Planet 
lander, Bouncing letters, Bug splat. 

Basic: 

I Ching, Mastermind, Robots, Basic Hangman. PLUS 
Large screen versions of Invaders and Maze of Death, 
Ready for when you get 16k. 

Cassette One costs £3.80 


CASSETTE 2 

Ten games in Basic for 16k ZX81 

Cassette Two contains Reversi, Awari, Laser Bases, Word 
Mastermind, Rectangles, Crash, Roulette, Pontoon, 
Penny Shoot and Gun Command. 

Cassette Two costs £5. 


CASSETTE 3 
8 programs for 16k ZX81 
STARSHIP TROJAN 

Repair your Starship before 
disaster strikes. Hazards include 
asphyxiation, radiation, escaped 
biological specimens and plunging 
into a Supernova. 

STARTREK This version of the well known space 
adventure game features variable Klingon mobillity, and 
graphic photon torpedo tracking. 

PRINCESS OF KRAAL An adventure game. 

BATTLE Strategy game for 1 to 4 players. 
KALABRIASZ World's silliest card game, full of pointless 
complicated rules. 

CUBE Rubik Cube simulator, with lots of functions 
including 'Backstep'. 

SECRET MESSAGES This message coding program is 
very txlp qexi jf. 

MARTIAN CRICKET A simple but addictive game 
(totally unlike Earth cricket) in machine code. The speed is 
variable, and its top speed is very fast. 

Cassette 3 costs £5. 



CASSETTE 4 8 games for 16k ZX81 


ZX-SCRAMBLE (machine code) with 3 stages. GUNFIGHT INVADERS 

Bomb and shoot your way through the fortified caves. (machine code) (machine code) 



IING RND 


PRODUCE DEADLY SPORES. YOU 
CONTROL ft FLYER ft ND YOUR MISSIO* 



GALAXY INVADERS (machine code) 

Fleets of swooping and diving alien craft to fight off. 
SNAKEBITE (machine code) 

Eat the snake before it eats you. Variable speed. 

(very fast at top speed). 

LIFE (machine code) 

A ZX81 version of the well known game. 

3D TIC-TAC-TOE (Basic) 

Played on a 4 x 4 x 4 board, this is a game for the 
brain, it is very hard to beat the computer at it. 


7 of the 8 games are in machine code, because this is much faster than Basic. (Some 
of these games were previously available from J. Steadman). Cassette 4 costs £5. 


Recorded on quality cassettes, sent by first class post, from: 

Michael Orwin, 26 Brownlow Rd., Willesden, London NW10 9QL (mail order only please) 





26 GHOSTTREKKER 

27 DAMBUSTERS 

28 SPOTSWAT 
SKI SLOPE 

29 MEMORY 

31 CITY BOMBER 

32 MUSIC MACHINE 

33 ONE-ARM BANDIT 


7 KEYBOARD 
STICKS & STONES 
10 HOT PURSUIT 
FRUIT GUARD 
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8 SPACMAN 

11 DETECTIVE 

12 LONG OR SHORT 

13 SPIROGRAPH 
SCREENWRITER 

14 PHYSICS 
16 HANGMAN 


34 STOPPING 
DISTANCES 

35 STAR BATTLE 

36 RENUMBER 

37 U.K.MAP 

38 PRIME NUMBERS 

39 POSTMAN 


Telephone 

All departments 

01-3597481 

If you would like to contribute to any of 
the Sinclair User group of publications 
please send programs, articles or ideas 
for hardware projects to: 

Sinclair User and Programs 
ECC Publications 
30-31 Islington Green. 

London Nl 8B| 


Programs should be on cassette and 
articles should be typed. We cannot 
undertake to return them unless a 
stamped-addressed envelope is 
included. 

We pay £> 0 for each program published 
and £50 per 1.000 words for each 
article used. 
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CHARACTER 

££*ownpwS»*; 


iALLHVE 

i only £7.95 

l inclusive 


16 K 
GAMES 


Instructions supplied. 

All programs have been written, tested and 
proved by Spectrum Software's own computer 
experts. Prices are fully inclusive. 

SPECTRUM SOFTWARE, 

44-48 Magdalen Street, NORWICH, Norfolk NR3 1JE. 


To: SPECTRUM SOFTWARE, 44-48 Magdalen Street. NORWICH. 
Norfolk NR3 1 JE. 


Please send me any two of the following program s 
(TICK APPROPRIATE BOX) 


SP 101 SKETCH PAD 

□ 

Please send me 

102 LUNAR LANDER 

□ 

the complete set 

103 MASTERMIND 

□ 

of all FIVE 

104 DISASSEMBLER 

□ 

individual 

105 CHARACTER GENERATOR □ 

programs □ 


I enclose my cheque/postal order for 
made payable to SPECTRUM SOFTWARE 
Allow 28 days for delivery 


Each program is written in Basic for the 
SINCLAIR SPECTRUM COMPUTER USER. 

All games incorporate both colour and sound. 
Flexible parameters intrigue both the beginner 
and more advanced alike. 


SPECTRUM'S 
SOFTWARE SETS 


YOU A CHALLENGE 


£6,000 PRIZE! FREE HIT SINGLE! 48K ZX SPECTRUM 

(16K ZXS1 VERSION NOW AVAILABLE) 

Will YOU to the first to locate the Golden Sundial of Pi in time and space, and be 
rewarded with the original? Exquisitely cralted by the winner of the Oe Beers 
Diamond International Award, from gold, diamond and the most precious of the 
earth's riche*. 

PIMANIA Where saxophone* turn into hanglider*. where music meets madness 
and where the PI Man tula* supremo! He'll talk with you. he'll befriend you. hell 
betray you, hell even do the Hofcey-Kofcey! Animated cartoon paphics! Full 
musical score! Spectacular colour and sound eflacts! Includes free hit tingle 
"Pimenie". with vocals by Clair Sinclne and the Pi-Menl 
It could take you a week to play, it could take you a lifetime! PIMANIA. 

the best evidence that computer gaming has come of age , . an adventure 
enthusiast's dream!” (Computer & Video Games) 

An investment et C10(48K Spectrum) £8<1«K ZX81) 


THE PROGRAM ENHANCEMENT PACKAGE FOR 
THE ZX81 (16K) 

A suite of easy to use machine code routines designed 
to transform your Basic programs. 

■ DEFINED SCROLL REGION 1 line to whole screen 

■ SCROLL up or down ■ FILL SCREEN any character 

■ CHANGE BACKGROUND ■ CHANGE FOREGROUND 

■ INVERSE VIDEO ■ FLASH SCREEN 
■ CLEAR SCREEN without changing print position 
Supplied on tape with a 6K DEMO PROGRAM 
and a FULL instruction booklet 
ONLY £5.95 Incl. p & o 


SOFTWARE 34 BOURTON ROAD 
--- = GLOUCESTER GL4 OLE 
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Simple English. 


At long last, someone has written a book on 
computers that even Aunt Emily can understand. 

That someone is none other than Dennis 
Jarrett: doyen of simple English and former 
Managing Editor of WHICH COMPUTER? and 
Practical Computing. And his book is called The 
Good Computing Book for Beginners. 

If you’re not a beginner, don’t let the title 
put you off. Because this book provides a 
wonderful opportunity of clearing up any grey 
areas of your knowledge. 

And a glance at the chapter headings down 
below may well give the impression that this 
book is fun to read. You would be right. It’s the 
brightest way imaginable of learning all about 
computers. 

There’s also a complete language guide to 


computer-jargon mumbo-jumbo in a glossary 
of terms that’s as comprehensive as you’ll find 
anywhere. 

All in all, you’ll find this book does for 
computers what Berlitz did for languages. 

In 304 pages. And at a modest £1.95. 


Your course in computers. 


■ Introduction to the 
introduction - computer 
myths, why they are being 
dispelled, and the truth 
about computers. 

What goes on inside - a 
swift canter through the 
heavy technology, avoiding 
irrelevant and/or difficult 
ideas: processors, chips, 
memory, I/O. 

3 Programmes-what makes 
the computer tick, or at 
least where the noise comes 
from: system software, 
applications, the pleasant 
and unpleasant faces of 
programming. 


4 What's a personal 

computer? -new readers 
start here, because this is 
all you need to know: what 
can it do? What’s available? 
And where do you buy a 
computer? 

What to look for-how to 
buy a small computer, or at 
least how to avoid complete 
disappointment. 

A practical glossary-facts, 
opinions, references and a 
few personalities. 

7 Now read on- 

recommended reading, 
with notes. 


Enrol here! 

■ MB MM MM MB MM MM ^M ^M Mi ■ 

Please send me copy(ies) of the Good Computing Book for 

Beginners at £1.95 each plus 50p for postage and packing. 

□ I enclose cheque for £ made payable to ECC Publications. 

Name 

Address 

□ Please charge my credit card the sum of £ 

Name ofcredit card _ 

Number _ 

Signed _ 

Now post please to ECC Publications, 

30-31 Islington Green, London N1 8BJ. 
Telephone enquiries: 01-359 7481. 
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NOW AVAILABLE FROM 
J.P. GIBBONS A.I.B. 

(AUTHOR OF THE BEST BANKING PROGRAMS IN THE WORLD!! 


The P B S. Bank reconciliation is believed to be the first such program to be 
available for the Sinclair ZX81 and the ZX Spectrum. 

Just look at some of its features. 

Automatically matches bank statement items with transactions recorded in 
your "Personal Banking System." 

List all outstanding items such as uncleared cheques, funds received but not 
advised to you. bank charges - highlights all discrepancies. No more 
scratching around to try and find out why your statement balance is different 
to what you expected. 

Full search facilities allowing on screen correction of any item. 

Saves and loads data to and from tape (ZX81 version, at double speed) 
Exchanges data with the main P.B.S. program. No need to save programs. 
Single key operation uses m/c keyboard scan for single letter commands 
IZX81 version). 

Extremely easy to use. No jargon to wade through before you get started. 
Demonstration program included. 

' All item lists, searches (with totals), etc. can be output to your ZX printer. 

* Full instructions included. 

' Unique after sales maintenance provided. 

Operates in conjunction with "Personal Banking System" (Full input and 
correction facilities plus automatic posting of standing orders on due dates). 

So banish the headaches, make life easier for yourself, send £15 for the Personal 
Banking System plus P.B.S. bank reconciliation and users manual. 

Existing clients need only send £5 lor the P.B.S. bank reconciliation which will 
operate with their present P.B.S. 

The Personal Banking System (as reviewed in Popular Computing Weekly - 1st 
July) is available separately for £9.95 lor cassette and user manual. ZX81 P.B.S 
owners can order the Spectrum version for just £5. 


Please specify whether ZX81 116K) or ZX Spectrum (48K) 

Guaranteed software available from J.P. Gibbson A.I.B. 
14 Avalon Road. Orpington. Kent. BR6 9AX. 

Your P.B.S. is never out of date! 


16K SPECTRUM + £42.50 = 48K SPECTRUM 

We did It lor the ZX8I we’ve now done H tor . t . 

the ZX SPECTRUM’ AiM 


w 


performance. reliability and economy 


As reviewed in ’ZX Computing' August!Sept ‘82 

I ECOIMO TECH 16K RAM PACK 



IS WAYSIDE AVENUE. WORTHING, SUSSEX. BN113 JU Telephone: (0S03I 656*1 


Do your programs load from tape first time, every 
time? If not, you need... 

(1) THEMICROCOMPUTER USER'S BOOKOFTAPE 
RECORDING by Hilderbay Ltd. 

Contents: 

PART I (for everybody; the 'how to' part): 

1 How your system should work 

2 choosing a tape recorder 

3 testing and adjusting your tape recorder 

4 keeping your recorder in good 
condition 

5 the selection and care of tapes 

6 making reliable recordings 

7 loading difficult' tapes 

8 useful accessories. 

PART 11 (more for enthusiasts; the why' part): 

9 how a tape recorder works 

10 computer cassette interface waveforms 

11 stereo heads, azimuth angle error 
12miscellaneous tape problems. 

Price £3.1 5 incl postage; £2.90 from bookshops. Or ask for it at 
your library. 

(2) T EST AND ALIGNMENT CASSETTE: a precision accessory 
which enables you to set up the azimuth angle of your cassette 
recorder head accurately using only a small screwdriver! Azimuth 
error is one of the commonest causes of tape troubles. With full 
instructions. £4.90. 

(3) LO ADI NG Al D: if your recorder is basically OK, but you have 
trouble getting the playback level right with tapes from different 
sources, you need our Loading Aid! Also suitable for checking the 
quality of tapes, detecting and (sometimes) compensating 

for dropouts, etc. With full instructions and hints on tape use. 

(4) TAPE RECORDER aligned and tested for computer use. A 
simple, but satisfactory, machine. £22 + £2 postage 

(All products suitable for most computers) 

SPECIALTAPE OFFER! 

Book+alignment cassette + loading aid for £ 11.90! 

SPECTRUM SOFTWARE (48K) 

PAYROLL (50 employees, all tax codes, pay levels, Nl 
contributions; Hourly, weekly, monthly; payslips, summary of 
payments; Very easy to use; Amendments to employee details 
very easy right up to the last minute; Can also compute gross pay & 
deductions from net pay). £2 5 

STOCK CONTROL (typically 1500 stock lines; prints list of all 
lines, or lines with given codes, or understocked lines; locate-by- 
name/add/delete stock line in under two seconds; prints values of 
stock. Program loads in one minute, data in less than three). £25 

GOLD our best-selling adventure game, now available on the 
Spectrum! £8 

All these programs are available from stock; we have interesting 
professional Spectrum software development, but we won t 
advertise it until we can supply it! 

I ZX-81 SOFTWARE(16-48K) 

8EAMSCAN. Computers bending moment and shear force diagrams (or a simply 
supported beam with 1 -99 point, uniform, and uniformly tapered loads. £25 
TIME LEDGER for up to 17 employees. 200 clients Agrcat time-saver' £ 15 
OPTIMAX. A powerful linear optimisation program Up to 75 variables 
constraints £40 

PAYROLL Similar to the Spectrum version, but 30 employees. £25 
STOCK CONTROL: about 400stock lines m 16K. 2000in48K). £25 
CRITICAL PATH ANALYSIS. Enter & solve 500-activily network in 16K Edit 
durations & costs. & repeat. £ 15 

BUDGET. Keeps track of expenses & compares them with budget. 50 headings 12 
months(l) or 12 categories (II). £ 15 for budget I & II (together) 

FINANCIAL PACK I. Contains throe programs: MORTGAGE. LOAN. VAT £8 


Free GOLD (ZX-81 or Spectrum) with all orders of £22 or over postmarked 
before 1 December! 

All prices include VAT. Everything post free unless stated otherwise. COO orders £2 
extra. Access orders accepted by telephone. 


Professional Software 

8/10 Parkway 

Regents Park 

London NW1 7AA 

Tel: 01-485 1059 Tlx: 22870 


SINCLAIR PROGRAMS November 1982 
































K eyboard is a test for ail 

sharpshooters of the computer 
keyboard. A letter will appear 
on the screen heading full tilt for 
self-obliteration in an inverse space 
at stage left. Your task is to hit the 
appropriate key before the letter 
auto-destructs. Your flying-fingered 
reviewer managed only five in fast 
mode. 

Submitted by Graham Woods of 
Redhill, Surrey for the 1K ZX-81. 



1 PRINT “ENTER LEUEL.: 1 (HARD) 
OR 2(EASIER)" 

5 INPUT ft 

10 IF fi=l THEN LET P=16 

15 IF ft=a THEN LET P=22 

16 CLS 

IT LET 5=0 
IS LET N=G 

20 LET M$=CHR* i IMT (RNO+S&) *-3 


8 ) 


25 PRINT RT11.0, 

30 FOR X=P TO 0 STEP -1 
35 PRINT fiT 11., __ 

37 IF INKEYTHEN GOTO 50 


£! PRINT “NOT FRST ENOUGH" 

4-5 GOTO 100 
50 LET N*=XNKEY$ 

55 IF N*=H* THEN PRINT "YES" 

57 IF THEN LET S=S*i 

60 IF Nt< THEN PRINT “URONG 

100 FOR 2=8 TO 5© 

105 NEXT 2 
107 CLS 

109 if"*”N= 10 f TUEN GOTO 111 

110 GOTO a© 

111 PRINT S 



T HE DISPLAY of Sticks and 
Stones will show you three 
sticks lying horizontally in the 
middle of the screen. You are 
required to move each of them so 
that the holes in them line up and 
allow the stone -“O"- to pass 
through them. After 10 attempts 
your score is displayed. 

Manoeuvre the top stick with keys 


1 and 0. the middle stick with Q and 
P. and the bottom one with A and 
NEWLINE. A small but exasperat¬ 
ing routine for the IK ZX-81 from 
Timothy Taylor, of Perterfield, 
Hampshire. Graphics notes: 

20 - LET E = INTfRNDx 4)+12 
40 - Inverse spaces; graphic 
inverse As; inverse spaces. 

104-FOR J=9 TO 11 


STICKS AND 
STONES 




1 LET G=0 
A LET R=1S 

5 LET e=ft 

6 LET C=R 
10 FOR 0=1 TO 10 
2© LET E = INT (RND+43 ^ 

30 FOR F =2 TO 12 _ „ 

4-0 PRI NT f¥T HR H ;RT 1 ® y 


+ 12 


“i fiT ll.C; 


";RT 


30 LET R=ft +(INKEY*= 

” 1 ") 


■’) - (INKEY 

90 LET B=B +(INKEY*="P">-iINKEY 
i="Q"> 

100 LET C=Q+ (INKEY$=C-HR* 118) - ( 
INKEY*="«"> 

104- FOR 0=9 TO 11 

105 IF F=J RND E=h+ 3 HND E=B+1 
ftND E=G+S THEN LET G=G + i 

106 NEXT U 

110 PRINT ftT FjE; ** ** 

120 NEXT F 
130 NEXT D 

14.0 PRINT "SCORE*"; INT (G/3) 
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1 GO 5UB 900© 

. 2, LE T R=.0i. let 3=0.- LET ax = 

10. LET gxl=S: LET yyi=£ s ft 
= 10 . LET x = 19: LET y=2: LET d*l~ 
I" 1: 1: INK 1: CL 

5 PRPER 7 

9 DIM a*< 20 , 20 ) 
bb 10 > LET a* <1/ = 

--LET at(2)=”fl 
^3^ LET (3) = 

4.0 t let a * < a■> = •'*. . 99 .. .wmm _ 9 

*50 LET a Js (5) .fli*. S. . 

, LET at (6) ="■• .fli.fli_M. 

M let a*r?> = i.Bi.ai.i..... 
_ t let a*ts) = 

M 9 g„ LFr a * t9> «• "MHB. •■»■. . .Bl 

~i«> let a * < i©> ="*.. 

^ia^LE7 a*<n; = "ama.maam .. .a^m. 

12^ LET a * i 12) = ”». am . 

130gLET a* <13) - ff.flBEM.JB|. 

*LET a* < 15; = "jBT9B. . . . .flB. . . 

---"let a*<!&>-"■.■!.■.«. 

i? 0 *let a * < it; . am.mmmm.mi-.. 

' 180 "let am is) =" 99 .am . 

^9™LET a « < 19) = "9 . am .■■ 

PRINT •: FOR f=l TO 30: PR I 
NT a* <f) . NEXT f 

1000 LET a * < x , w > = " " 

1001 IF 5 = 180 OR 5=4-60 OR 5=74.0 
THEN LET 5=5+100: PRPER 1: CL5 : 

GO SUB 7000. PRPER 1: CLS : PRP 
ER 7: GO TO 1© 

1010 IF INKEY*="" THEN GO TO 106 
^020 IF INKEV *«"5" THEN LET d*«" 
1030 IF INKEV *="&" THEN LET d*«" 
104.0 IF INKEV * = "7" THEN LET d* = " 
1050 IF INKEY*="B" THEN LET d*« v 

1055 PRINT RT iX, Mj" " 

Hfjurjf:s.r* «<*.«*•» <*■•» 

1062 IF d*= R ** RND A*(x+l,y> o '* 

" THEN LET x=x+l 

1063 IF RND a *<x , y -1) c >"9 

” THEN LET y *y-1 

1064 PRINT RT X,Y; INK 0;D* 

1070 IF a*<x,wTHEN LET s»s 
+1: PRINT RT 5,0, s : BEEP .1.-10 
1060 PRINT RT 9X..siy < .3f<ax,ay> : I 
F I NT CRNO-frS) +<GX>X> Rn 5 i*<9X-l 
,99)o'#" THEN LET gx=gx-l 

1090 IF INT <RND*2)«-<GX <X1 RND a 
* <gx+l,gy> <>'*" THEN LET ax=ax«-l 
2000 IF INT <RND*2) + <GY>Y* RND a 
t(?x,gy-l) o“i" THEN LET gy=gy-l 
2010 IF INT (RND *2> *■ < GY CY ) RND a 

H?Z'Z)LZ 2 -£ K ZZ a " THCM LET §y=3»+i 

2015 PRINT RT 9X,gy, INK S; "9* 
2020 IF <gx=x RND gy=y) OR <yxl» 
x RND gy ley) THEN PRINT RT x , y.; 
FLR5H l;d*: STOP 

3060 PRINT RT 9Xl..gyl;««(gxl.gyl 
) . IF INT <RND*a> f<6.v'l>X> Rn 6 a* 
tgxl-l.gyl) <*"9" THEN LET sxl»»x 

3090 IF INT <RNO*2> +<GXlcX> RND 
at<gxl+l, 9 yl) THEN LET gxl = 

§ xl+l 

100 IF INT <RND#S) «.<©Y1>V) RND 
at (gxLgyl-l) o«r THEN LET gyl- 

IF INT <RND*2> f<&Vl <>*) RND 
at (gxLgylfl) <>**" THEN LET gyl- 

litsV® ?5ei“ l ' 9sl; IMK 

7000 FOR F=0 TO 25 

7001 PRINT RT 10,29; INK 7, "O" 

7010 PRINT RT 10,F, INK 3;” A ” 

/ INK 6j 

7020 BEEP .1,-15 
7030 NEXT F 



SINCLAIR PROGRAMS November/December 1982 




















USMAN 

SINCLAIR PROGRAMS November/December 1982 g 


S PACMAN is a good version of 
the perennial Pacman from 
S I Stearn of Harpenden, Herts, 
for the 16K Spectrum. 

Naturally it suffers in any com¬ 
parison with arcade machines; 
there are no power pills, no exit, 
and the two ghosts are decidedly 
more dumb than their cousins in 
the amusement halls, though stiil 
fast enough to catch you more often 
than not. 

This listing is a big leap forward 
in our quest for an arcade-quality 
Pacman and provides a good basis 
for anyone wanting to do further 
work on the project; providing 
exits, for example, would probably 
not be too difficult. 


70S0 PRINT «T i«,f; xtm S; 

INK 6; " * 

7055 BEEP «.l,® 

7*60 NEXT F: fcLS . RETURN 
3999 STOP 

9000 DOTfl 0, BIN 1000010,BIN 1110 

111000,BIN 1111100,81 N 111110. BI 
N 11100 

9020 DRTfi ©,BIN 00011000,BlN 0©1 

11100 , bin 0111111 ©, ass, s£s .bin i 

1100111,BIN 01000010,0 
9030 OflTfl BIN 001110000,BIN 0111 
11000,BIN 001111100,BIN ©0011111 
0,SIN 000111110,BIN 001111100,BX 
N 011111000,BIN 00111000© 

9035 DflTR 24., 60, 12e, 219,210, 2SS . 
219, 14.5 

9040 RESTORE 9000 

9045 FOR f=0 TO 7: RERO a; POKE 

U5R "u"4f,a: NEXT f 

9050 FOR *m0 TO 7: READ a: POKE 

USR " r ** ♦ f , a : NEXT t 

9060 FOR f*0 TO 7. RERD a: POKE 

USR NEXT f 

9070 FOR f»0 TO 7: RERD a: POKE 

USR •'l"*f,a: NEXT f 

907S FOR f-0 TO 7: REPO a. POKE 

USR •■a“-*-f,a: NEXT f 

9080 RETURN 





HOT PURSUIT 

_I_ 



5 LET 

10 LET X =»&>*. 

20 LET V=ll 
25 LET 3*="—+—" 

30 LET Z=S 
35 LET U=5 
4.0 LET E=0 
50 LET r = INT 5 RND *4..* 

55 LET E=E+1 
57 IF X >23 THEM GOTO TS 
60 IF P=0 THEM LET X=X+1 
65 IF X < 4. THEN GUTO 30 
70 IF P=1 THEN LET X=X-1 
75 IF ’0 18 THEM GOTO 90 
80 IF P=2 THEN LET V=Y + 2 
85 IF Y< 3 THEN GOTO 200 
90 IF P=3 THEN LET V=V-1 
100 PRINT ST Y,X;R» 


110 

1 

120 

1 

130 

**14-0 

1 

14.3 

14-5 

150 

160 

185 

190 

250 

0 

260 

300 

310 


Y OU ARE bumping along the 
vapour trail of the Red Baron, 
trying to manouevre him into 
your gunsights in Hot Pursuit.You 
control your trusty Sopwith Camel 
with the cursor keys and hit P to fire. 

If the game is too difficult alter the 
4 in line 143 to a higher number and 
be careful not to move too close to the 
edge of the screen or the routine will 
crash. 

Submitted by S Wild, of Oldham. 
Lancashire, for the 1 k ZX-81. 
Graphics notes: 

300 - Graphic shifted A inverse 
asterisk, graphic shifted A. 


IF IMKEY*="S" THEN LET U=W- 
IF INKEY*6“ THEN LET 7=7t 
IF XNKEYS- - 7" THEN LET Z-Z- 
IF INKEY*="B” THEN LET U=U + 
FOR J=1 TO 4- 

IF INKEY$-"P" THEN 6CTG 250 
PRINT RT Z,U;B* 

NEXT 

CLS 

GOTO 50 

IF Y=Z RND X=U THEN GOTO 30 
GOTO ISO 

PRINT RT Y,X; "WBIf" 

PRINT E 


F RUIT GUARD is a game for the 
IK ZX-81. submitted by C 
Regaud of London SW7. The 
object is for you (graphic shifted M) 
to fetch the fruit (graphic shifted U) 
and take it home (inverse H) by 
evading the monster (graphic shifted 

P). 

The best way to make sure you are 


munching instead of being munched 
is to keep to the sides, since you can 
use them to cross the screen but the 
monster cannot. It is fun but perhaps 
a little too easy. 

Graphics notes: 

60 - Graphic shifted U 

70 - Graphic shifted M. graphic shifted 
P, inverse H. 



If 

ra 

Ifl 


d) 

r~ 

Hi. 



I? 


" ; RT C,D; "B” 

; 

= S*\* - X INKEY 


10 LET 5=0 
20 LET R=12 
30 LET B =20 
4-0 LET C=7 
50 LET 0=3 
60 LET R*="S~ 

70 PRINT RT R,B 
; RT 12,20, "B",RT 

80 LET R=R+(INKEY* 

90 LET B=B+<INKEY$="3">—{INKEY' 
*=•5") 

loo let e=e+ f«>o — xfs<cy 

110 LET D =D4- (B>D) — VB-CDJ 
120 IF R=0 THEN LET R=20 
130 IF 0=21 THEM LET R=1 
14-0 IF B=0 THEN LET 8 =30 
150 IF B=3i THEN LET B=1 
160 CLS 

rSIS G5TO = ife HNC ' B=se HND 

PRINT B 

190 IF R=7 RND B=3 THEN LET fi$= 

200 GOTO 70 
210 LET 3=3+1 
220 GOTO 60 
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T HIS INTERESTING concept 
for the IK ZX-81 requires you 
to play the Detective, cross¬ 
questioning a series of murder sus¬ 
pects. You must first enter their 
names with the following short 
routine: 

10—DIM A$ (8.8) 

20—FOR A=1 to 8 
30—INPUT B$ 

40—LET A$ (A, 1 TO 8) =B$ 

50—NEXT A 

That should be RUN and eight 
names of five letters or fewer should 
be entered. That routine should then 
be deleted—by typing-in the line 
numbers only—and the complete 
program entered. 

Note that there is no need to 
enter the names again after the 
program has been taped, as the 
names are also saved. To run 
the program you must press 
GOTO 0—not RUN. The com¬ 
puter then takes a few seconds 
to establish the position of the 
suspects, who can be in towns 
A or B, in the N or S and E or W 
of that town. 

You are then given the posi¬ 
tion of the murderer and must 
establish his identity. Do that 
by entering a number between 
1 and 8 to choose a suspect. 
Inputting 1 will reveal the town 
where the suspect was at the 
time of the murder and 2 and 3 
will discover his position in the 
N or S, E or W. After 12 ques¬ 
tions you must make an accusa¬ 
tion by entering the number of 
a suspect. If you want to arrest 
someone early, enter 9. 

A diverting idea from Colin 
Cushings, of Harlow, Essex. 


detective 


LET R$(N,7)=CHR$ ii IMT i RHD 
) +51) 

LET R$(N,3) =CHR* ( flNT f RND 
3) +4.H) 

NEXT N 

LET M=IHT fRND*3.> ♦ ! 

FOR B = 1 TO 12 

PRINT RT 13,13;R$ <M ,61 ;" 

7) : " ", R$ (M,S' 

INPUT C 

IE C=9 THEN GOTO 15S 
PRINT RT 0,13;«*fC,I TO 5) 
INPUT 3 

PRINT RT 21,15;fi$iC,B-rS) 

PRUSE 200 
CL 5 

NEXT R 

PRINT "WHO DO YOU RCCUSE" 

INPUT R _ 

PRINT RT 11,13, saaffi" 

IF R=H THEN PRINT RT 11,13; 


ISO PRINT TO Si, 


EIDr XT 
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L ONG OR SHORT is a game for 
the unexpanded ZX-80 and is a 
variation of the game Hi-Lo. 
The random number generator of the 
machine produces a number be¬ 
tween 1 and 100. You have to 
guess that number but instead of 
telling you in figures how near your 
guess was to the answer, the ZX-80 
will display a line. 

The shorter the line the closer you 
are to the correct answer. When the 
game is finished the machine will 
tell you what it thought of your 
effort to guess the number. 

The program was written by G 
Gill of Westerham, Kent. 


5LETC=0 

10 PRINT. "SHORT OF LONG" 

15 PRINT 

20 PRINT “I.M THINKING OF A 
NUMBER (1-100)” 

25 PRINT 

30 PRINT "AS A CLUE . I.LL DRAW 
A LINE” 

35 PRINT 

40 PRINT "THE SHORTER IT IS. 
THE NEARER" 

45 PRINT 

50 PRINT "YOU ARE" 

55 LET A=RND(100) 

60 PRINT., "YOUR GUESS?" 

65 INPUT B 
70 LET G=C+1 

80 IF A=B THEN GOTO 200 
85 LETD=ABS((A-B)/2) 

90 FOR G=1 TO D 

95 PRINT "INVERSE SPACE"; (shift 
A) 

100 NEXT G 
105 PRINT B 
110 PRINT 
115 GOTO 65 

200 IF C< 5 THEN PRINT 
"EXCELLENT'; 

205 IF C> 4 AND C<10 THEN 
PRINT “NOT BAD"; 

210 IF C> 9 THEN PRINT "WAKE 
UP"; 

215 PRINT "THAT TOOK 
";C;”GOES" 

220 POKE 16421.24 
225 STOP 
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S CREENWRITER is not a pro¬ 
gram for would-be employees of 
MGM but a neat routine for pro¬ 
ducing the kind of large-scale 
graphics shown in our listing. 

A maximum of four lines of eight 
characters can each be displayed on 
the screen at one time. The prompt 
for a string entry is given and a 
maximum of seven characters can 
then be entered. 

The enlarged string is then dis¬ 
played and will scroll up to make 
way for a new string. With a COPY 
command, the program could be 
used with theZX-81 printer. 


S PIROGRAPH, from Martin 
Richards, of Stevenage, Herts 
uses the hi-res graphics of the 
Spectrum to fascinating effect. 

The program produces graphics in 
the style of those line-drawing 
machines with the swinging weights 
and turning tables. On the Spectrum, 
too, it is fun to watch and 
you have good pictures. 


10 

INPUT n$ 

20 

FOR L=5GN PI TO LEN RS 

30 

LET X=URL "70S1”+COPE RS(U 


4.3 

FOR Y-NOT PI TO CODE ’V" 

53 

LET P=PEEK CX+Y) 

00 

FOR G =7 TO 3 STEP -1 

70 

IF P<2 **G THEN GOTO 100 

S3 

PLOT B+L.-G . o-Y 

03 

LET F=F-2**G 

100 

NEXT G 

lie 

FRL'Sc CODE " .* ** 

120 

NEXT Y 

130 

NEXT L 

14-0 

SCROLL 

153 

SCROLL 

100 

SCROLL 

1S5 

SCROLL 

170. 

GOTO SEN PI 


LET LX=0: LET LY=0 
LET X =0 LET Y=0 
CL 5 

INPUT "RRDIUS OF OUTER RING 

IF R=0 THEN GO TO 10 
INPUT "RADIU5 OF WHEEL?R1 
INPUT "POSITION OF WHEEL7"; 

INPUT "SPEED*?"; S 

LET LX=127: LET LY=S7+R-D 

PLOT LX LY 

LET P=0 

LET X= I'ft-Ri) -sSIN iPU + iRi -£>.> 
CP*- (R/Rl-1) > +127 
LET Y=fR-Ri)*COS fPU +COS iR 
sRl-iy :> * iRl-D} +S7 
DRpy X -LX y -LY 
LET LX —X 
LET LY =Y 
LET R=R+5 

IF INKEY* = "" THEN GO TO ISO 
GO TO 20 


SUM. 
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D O YOU teach physics or study 
it? Physics is a program for the 
16K ZX-81 which tests you on 
some of the calculations necessary 
in basic electrical physics. 

There are four topics in the 
listings but two of them are divided 
into subsections giving a total of 
seven types of problem. After each 
question you are told whether you 



are correct, incorrect or close 
enough and your score is displayed 
at the end of every section. 

As each new topic is introduced 
every 1.000 lines, new sections could 
easily be included by changing the 5 
in line 110 and by moving lines 
4225-4270 to the end of the last topic. 

Sent by Michael Coombes, of 
Newport, Gwent. 



10 REM *' PHYS ICS" - COOMBES < BUG 

. 1982 __ 

20 PRINT TAB 12.; SEEBBBSB 
30 PRINT "HELLO . WELCOME 

TO ""PHYSICS.;AT 6,0; "PLEASE T 

YPE IN YOUR NAME" 

4.0 INPUT N$ 

50 PRINT , , f t t t "WELL , " ; M $ ; " ,TH 
E RIM OF THIS";TAB 0 ;"PRGGRRM IS 
TO TEST YOU ON SOME OF THE CflL 
CULRTIONS THAT YOU","WILL NEED T 
O DO UHEN STUDYING","ELECTRICITY 

60 PRINT ,,"THE TOPICS ARE•",, 
"CRLCULATIOM OF TOTAL RESISTANCE 
COSTING OF ELECTRTCITY" , "OHMS L 
AU"..,"POUER" 

70 POKE^ 16413^0^ 

® 85 POKE 164.13,2 

90 IF IMKEY$="" THEN GOTO 90 
100 CLS 
105 LET TSC =0 
110 FOR F =1 TO S 
115 LET SC=0 
117 CLS 

^Igg^JPRJNT^^TOP XC ; F , , 

130 gosub (Fiioeau 

14-0 NEXT F _ 

1015 FOR O ™ TO 5 
1017 GOSUB 7009 

1020 PRINT RT 6,0;"THE FOLLOWING 
RESISTORS ARE","CONNECTED IN SE 
RIES: 

1025 LET B = INT (RND431 +2 

1027 DIM O (B.» 

1028 LET RNS=0 
1030 FOR 6=1 TO B 

104-0 LET OtG)=XNT VRM0»S.» *1 
1045 LET AMS=AN5+D(G> 

1050 NEXT G 
1060 FOR G =1 TO B 

1070 PRINT " ";OtG" OHMS" 
1080 NEXT 6 

1090 PRINT > t t >"UHAT IS THE TOTA 
L RESISTANCE?" 

1100 INPUT T 
1120 GOSUB 3000 


1130 NEXT Q 
1140 GOSUB 9S00 
1900 RETURN 
2000 PRINT TAB 4; 


2010 FOR 0=1 TO S 
2020 GOSUB 7000 

2030 LET UA=SIMT lRND^OJ +SO 

2032 LET P=INT <RND*4A+2 

2035 LET H=IMT (RNDi5.> +2 

2040 PRINT RT S,0;"UHRT IS THE C 
OST OF RUNNING A",UA;" URTT RPPL 
IRNCE,FOR ";H;" HOURS","AT ";P;" 

PENCE PER UNIT?" 

2045 LET RNS=(UAy1000.1*H*P 

2050 INPUT T 

206O GOSUB 6000 

2070 NEXT O 

2080 GOSUB 9500 

2090 RETURN 


3010 FOR 0=1 TO S 

3020 GOSUB 7000 

3030 LET R = INT VRMD»9.' +1 

3040 LET I =INT (RND* S.W1 

3042 IF R =8 THEN GOTO 3030 

3050 PRINT RT 3,0; "UHAT IS THE >J 

OLTAGE ACROSS R" , R," OHM RESISTO 

R UHEN R CURRENT OF";I;" AMPS FL 

OUS THROUGH ITT" 

3060 INPUT T 
3065 LET ANS=R * I 
3070 GOSUB 3000 
3080 NEXT O 

3085 GOSUB 9500 

3086 CLS 

; " 'i part^f^®^® 

3088 LET SC=0 

3090 FOR 0=1 TO 5 

3100 GOSUB 7000 

3110 LET R=INT »RND*9.>*I 

3120 IF R=8 THEN GOTO 3110 

3130 LET UsINT VR WD-H9.WI 

3135 IF R > 4 THEN GOTO 3110 

3140 PRINT RT 3,0;"UHflT CURRENT 

FLOWS THROUGH R",R;" OHM RESISTO 

R.UITH "; V ;" UOLTS","ACROSS IT?" 

3150 LET AN5=U/R 

3160 INPUT T 

3170 GOSUB 6000 

3180 NEXT © 


14 


SINCLAIR PROGRAMS November/December 1982 












3190 GOSUB 9SOO 
3200 CLS 

3210 PR INT TAB 5; "i_ 

3HEEH9S" ; tab s; '' (port 3 > ■ 

3215 LET SC =0 

3220 FOR 0=1 TO 5 

3230 GOSUB 70©0 

3240 LET I = INT \RM + 1 

3250 LET U=IMT (RNO»10j+10 

3260 LET ANSsU/I 

3270 PRINT AT 3,9; "UHflT UflLUE OF 
RESISTOR GIUES A" , ' CURREt'fT OF " 
; I; •• AMPS WHEN •* , U; ** UOLTS ARE B 
PPLIED ACROSS IT." 

3230 INPUT T 
3290 GOSUB 3000 
3300 NEXT © 

3310 GOSUB 9500 

3320 RETURN _ 

4-000 PRINT TAB 13, SH8SB" 

4.010 FOR 0 = 1 TO 5 
4-020 GOSUB 7000 
4030 LET Is INT 1RND+S.1 +1 
4-04.0 LET Us INT CRND+20) +2 
4050 LET ANS*y»I 

4-060 PRINT AT B ,0; "WHBT IS THE P 

OUER OF R LIGHT","BULB IF ";l;" 

RMPS FLOU THROUGH IT","WHEN THER 

E RRE "U; " UOLTS" , "ACROSS IT*?" 

4-070 INPUT T 

4030 GOSUB 3000 

4090 NEXT O 

4100 GOSUB 7000 

4102 GOSUB 9500 

4105 CLS _ 

4110 PRINT TRB 13, "SH8SB" /TAB 12 
;”(PRRT 2)" 

4115 LET SC=0 
4120 FOR P=1 TO 10 
4125 NEXT P 
4130 GOSUB 7000 
4140 LET U =240 

4150 LET I=IHT f <RND* 10.1 * 10.1 +50 
4160 LET ANS=I..'U 

4170 PRINT RT 3,0;"UHRT CURRENT 
FLOUS THROUGH R",I;" UATT RPPLIR 
NCE UHEN UITH R","24© VOLT SUPPL 
Y?" 

4130 INPUT T 
4190 GOSUB 3000 
4200 NEXT O 
4210 GOSUB 7000 


4215 FOR 0=1 TO 1© 

4220 NEXT © 

4222 GOSUB 9S©0 
4225 CLS 

4230 PRINT RT 2,©;"WELL,”;N$;",Y 
OU HAVE NOUr;TRB 0;"TRIED RLL TH 
E CALCULTIONS.",,,,,"YOUR FINRL 
SCORE IS ";TSC 

4240 PRINT "DO YOU IJISH TO 

STRRT AGAIN?" 

4250 IF INKEY$="Y" THEN GOTO 100 
4260 IF INKEY$ = "N" THEN STOP 
4270 GOTO 4250 
7000 FOR R =3 TO 21 
7010 PRINT RT R,©;" 

7020 NEXT R 
7030 RETURN 

8000 IF T =RN5 THEN PRIfTT ,,,,"UE 
LL DONE " ; N$; TRB 0; 'THRT IS 

CORRECT." 

3005 IF ToflNS AND INT AMS =INT T 
THEN PRINT ,,,,"CLOSE ENOUGH 
Nl.TAB ©.: TRB O; "THE EXACT ANSWER 
UAS ";rns 

8010 IF T=ANS OR INT ANS=INT T T 
HEN LET SC=3C+1 

3015 IF INT ANS=INT T THEN GOTO 

6040 

8020 IF TOAM5 THEN PRINT , , "NO 
THRT IS WRONG.", "THE ANSW 
ER UAS ANS 
8040 GOSU8 9000 
8050 RETURN 
9000 FOR P=1 TO 2© 

9010 NEXT P 
9020 RETURN 
9500 CLS 

9505 PRINT "YOUR SCORE FOR THIS 
SECTION IS",SC;" OUT OF ",©-l 
9510 LET TSC =T3C+3C 

9520 PRINT ,,,,,,"YOUR TOTAL SCO 

RE SO FAR rs ";TSC 

9530 FOR Y=1 TO 3 

9540 GOSUB 9000 

9550 NEXT Y 

9552 FOR P=i TO 5 

9554 SCROLL 

9556 NEXT P 

9560 RETURN 

99O0 SRUE "PHYSIC®" 

9910 RUN 
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H ANGMAN II is an improved 
and updated version of G 
Gill’s ZX-80 Hangman game 
the July/August issue of Sinclair 
User. This version makes the giant 
stride of showing a display of the 
gallows, advanced one stage for 
every incorrect guess. 

The 120-word vocabulary consists 
of 40 six-, seven- and eight-letter 
words selected randomly from a 
dimensioned string. 

This seems a reasonably definitive 
listing for this game and is therefore 
worth a place in anyone’s cassette 
collection. It was sent by P Marsland, 
of Tam worth, Staffs, for the 16K 
ZX-81. 
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10 LET S=URL "5" 

20 LET X=URL "12" 

30 CLS 

4-0 LET R=URL "IS" 

50 FOR B=URL "20" TO URL. "50" 

60 LET ft=ft+"IS" HMD RWD 
>URL • 4-" ) — (ft> yfiL "23" AND RND < U 

RL ".S"> 

70 FOR C=URL "23" TO R 

30 PLOT S,C 
90 NEXT C 

100 IF RNO> VRL ".3" RND B)UftL " 
12" THEN PLOT "RND 3-6" 

110 NEXT 6 

120 FOR R=URL "4." TO URL. "26" 
130 LET X =X+ i XNKEY $ = "6"J - \ XN.KEV 
$="7"> 

14-0 PRINT RT X,R; 

150 GOSUB URL "250" 

160 IF H > URL "0" ftHD H -i URL "3" 
OR H >URL "127" RNO M:URL "236" T 
HEN PRINT 3;O 
170 PRINT RT 'V 

180 PRINT RT X,R+URL "2"; 

190 GOSUB URL ”250" 

200 IF M > URL "0" RND M •: URL "6" 
OR M > URL "127" RND M •< URL, "136" T 
HEN LET 5=S+PI/PI 
210 PRINT RT X,R;“." 

220 NEXT R 

230 PRINT S+PIyPI 

24.0 STOP 

250 LET H-PEEK URL "PEEK 16393+ 
236*PE£K 15399" 

260 RETURN 




S PY PLANE is a quick program 
for the lK ZX-81 in which you 
are the pilot of a reconnais¬ 
sance aircraft swooping over 
enemy territory. 

You can photograph the installa¬ 
tions successfully only by getting 
them less than two print positions 
in front of the nose camera. Gain or 
lose height with keys 6 and 7 and 
beware of crashing. 

Submitted by | Corney. of 
Braintree. Essex, who reckons that 
10 photographs or more is the mark 
of a real daredevil. 
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C LOCKMAN is a very quick 
reaction-type game for the 16K 
Spectrum. It is so-called be¬ 
cause your enemies appear in a 
circle around the screen as if on the 
face of a clock. Your gun, at screen 
centre, is rotated with keys 5 and 8 
and fired with 1. 

Men stay on the screen for a 
shorter time after every hit, so hit¬ 
ting more than 40 out of 50 is very 
good. Fifty out of 50 is impossible. 
You can adjust the difficulty of the 
program by altering the length of the 
BEEP in line 180. 

Sent by Arthur Douglas, of 
London E4. Graphics notes: 

70.80 etc—k. 

1000,1010 etc—j, a, b. 


2© GO SUB 9OO0 
30 LET 9C<=0. LET S C =0 
4.0 LET q=100. LET J = 244 
50 LET d=0. LET C =0 
60 PRINT RT d,c;CHR$ 32. LET 9 
o -go +i 

70 LET * = INT VRN£V*3*2A 

30 IF X = 1 THEN LET d=20; LET C 

=S 

s 90 IF * =2 THEN LET d=3. LET C = 

100 IF K=3 THEN LET d=0: LET c= 
15 

110 IF K =4 THEN LET d =3 LET c = 
22 

120 IF X=S THEN LET d=20. LET C 
=25 

130 IF X =6 THEN LET d=27: LET C 
=22 

14.0 IF *. =7 THEN LET d=20.- LET C 
= 15 

150 IF X =3 THEN LET d=27. LET C 
=e 

150 PRINT INK 2;flT d, C ;CHR$ 152 
170 FOR a =2 TO O 
130 BEEP 0-02,5 ' 

190 PRINT INK 2; RT 20,2S;CHR$ .j 
200 IF INKEY$="e" THEN LET .> = J * 
1: IF J =152 THEN LET J=2 44 
210 IF INKEY*=~S~ THEN LET j =J- 
1 IF J =14-3 THEN LET J =252 
220 IF INKEY5="2" THEN GO SUB 2 
000 

230 NEXT * 

24-0 IF 90=50 THEN GO TO 260 
250 GO TO 50 

260 PRINT RT 29,0;"VOO have SCO 
red ”.;sc;" out of SO" 

270 PRINT RT 20,O;"Hit “"y“" fo 

r another 90 ,or stop" 

280 IF INK£Y$ •: .1 " 9 " RNI> INKE/jLi 
“n" THEN GO TO 230 
290 IF IMKEY$="n" THEN STOP 
300 RUN 

100© IF J =24-4- THEN LET B =-34-. LE 
T b=0 



101O IF J =24-5 THEN LET £>=-60. LE 
T b =60 

1020 IF J =2 4-5 THEN LET a=0- LET 
b =33 

1030 IF J =24-7 THEN LET * =60 ■ LET 
b=S© 

104.0 IF J= 24-3 THEN LET a =34.- LET 
b =0 

10SO IF J=249 THEN LET S=60. LET 
b = -60 

1060 IF J =250 THEN LET 3=0. LET 
b = —34. 

107© IF J=252 THEN LET B =-60. LE 
T b = —60 

1030 PLOT 124.,92. ORRW INK 4;a,b 
1090 IF It = J -143 THEN PRINT RT d , 
C; BEEP 0,1, * *2. PLOT 224,92 

DRhU ODER 1;3,b: LET SC =S C +1; 
LET q=q-2; GO TO 60 

1100 PAUSE X *2: PLOT 124,92. DRR 
U OUER 2;a,b 
1110 RETURN 

9000 FOR J =14-4- TO 252.- FOR X =0 T 
O 7 

9010 READ Ud 9 POKE U5R CHR$ . j 
, Udd 

9020 NEXT X: NEXT j 

9030 DATA 2,23,50,296,196,50,23, 

o 

9040 DATA 292,276,76,67,44,40,26 
, IS 

9050 DATA 24,24,36,36,66,90,265, 
195 

9060 DATA 3,23,50,194,52,20,3,3 
907O DATA 292,276,76,34,34,76,27 
6.192 

9080 DATA 3,3,20,52,294,SO,23,3 
9090 DflTfi 295,265,90,66,36,36, 2s< 
,24 

9200 DATA 26,26,40,44,67,76,276 
192 

9110 DATA £4 , SO ,90,226,24,36 , 66 - 
129 

9220 RETURN 

9999 5RUE " C l C C X »en " LIME lO 
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B inomial distribution 

might be the first of a new style 
of program. It was submitted by 
P R Scott, of Goldalming, Surrey, 
who believes that there are many 
fundamental scientific principles 
which could profitably be illustrated 
on Sinclair machines. 

This program for the 16K ZX-81 
serves to illustrate the principle of 


binomial distribution. The display 
shows a ball falling through a triang¬ 
ular matrix of pegs. When the ball 
hits one of the pegs it rebounds to the 
left or right, entirely at random. 

Its final position is recorded and a 
further ball produced. The distribu¬ 
tion of final positions is the binomial 
distribution, familiar to most O level 
mathematics candidates. You may 


not know that this characteristic 
pattern is also of importance in spec¬ 
tral intensities and polymer 
conformations. 

An excellent program, likely to 
prove of immediate use to teachers 
and students of mathematics. 
Graphics notes: 

120—Minus, Four spaces, minus and 


fi: 


I® DIM ft<7/ 

20 FOR X = 1 TO 7 
•30 LET ft iXi =Q 
4-0 NEXT X 

50 PRINT ftT S.,5.; “BINOH2ftL. DI&T 
RIBUTION” 

60 PRINT ftT 5.. 15.; * 

7® PRINT ftT 7.. 14.;' _ 

8 ® PRINT ftT S, 13.; "$ IS 

ft® PRINT ftT 11, 12.; "B HE M EST 

100 PRINT -ftT 13., 11.; “1 111 liji” 

t| il® PRINT ftT 15., 10.; "82 I 1 I I VS 

120 PRINT ftT 17ft.; ” — 

~ 130 PRINT ftT 18,11.;“- 
20® PRINT ftT 3,15,"0" 

210 LET X = 15 
22® LET Y=3 
230 LET XPaX 
240 GOSUB 40® 


25® IF Y=16 THEN GOTO 420 
260 LET R = RND 

270 IF R<0.5 THEN LET X = X + 1 
280 IF R>=0.5 THEN LET X=X-1 
2ft® GOSUB 400 
30© GOTO 230 

4®0 PRINT ftT Y,XP.C. - 

410 LET V=Ytl 

42® PRINT ftT Y,X,"D" 

43® RETURN 

4ft® PRINT ftT lS.^.;” “ 

50® LET Z =(X —7) X2 
510 LET ft(Z)=ft<ZJ+1 
520 LET P=17 

53® IF Z/2=INT tZ/2) THEN LET P 
= 18 

540 LET Q =X 

550 IF ft(Z) >=10 THEN LET 0=0-1 
560 PRINT ftT P,Q,«tZ> 

57® IF ft(Z> =50 THEN INPUT 
580 GOTO 200 
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W E HAVE received many 
programs for finding some¬ 
thing hidden in a grid. 3-D 
Hunt is the first we have had 
requiring a search in a cube. 

The display is of a 9 by 9 
numbered board representing the 
front of the cube. Beneath it is a strip 
representing depth, the right-hand 
end of the strip being the front of the 
cube. The computer has a choice of 
729 positions in which to hide itself. 

Enter a number for the line, 
another for the column, and a third 
for the depth. Your position will be 
displayed and so will three letters to 
show the relative position of the 
computer. 

A report of NWF, for example, 
would indicate that your first and 
second numbers should be less, and 
your third should be greater. 
The last F indicates “in front of". 

If one of the report figures does 
not appear, assume that you have hit 
the correct value. A black square 
shows you have found the fugitive 
and the number of attempts you 
required is displayed. 

An interesting game for the IK 
ZX-81 from Paul Allen of Wigan. 
Greater Manchester. Graphics notes. 

6—Inverse hyphen 

7—Nine graphic As 

8—Graphic D 
100—In verse O 
180—Inverse space 
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PACE RESCUE is a kind of 
stellar docking game for the 16K 
ZX-81. You attempt to man- 
ouevre a series of unmanned space 
probes into the open bay of a space 
station positioned in the middle of 
an asteroid belt. Steer yourself with 
the four cursor keys but beware—in 
those weightless conditions your 
craft will continue to move in a given 
direction, even when propulsive 
force is no longer being applied. 

The probes naturally will be 
destroyed if they hit an asteroid and 
the collision will leave behind a 
cloud of debris big enough to wreck 
the next vehicle but too small to 
show up on the radar. 

Ten marks are deducted for every 
crash and your score is displayed at 
p the end of the game. If things become 
too easy, change line 50 to give more 
asteroids. 


l l_ET u=© 

10 DIM ft <4©., 40) 

15 Fft-ST 

20 FOR F =0 TO 21 

---■ -> surer-: 

5© FOP N=© TO .30 
5© LET Z = INT <RNC‘*3G) 4-1 

7® LET X»TNT (RNO «-L 

80 LET =i 

90 PRINT wT XZ , CHR % 150 

1®0 NEXT N 

110 GOSU3 500© 

111 SLOW 
170 LET V=0 
180 LET R=2© 

130 LET E = i5 

SO© LET ft=CODE INKEY $ 

205 IF INKEY J="“ THEN LET fl-Y 

210 LET Y=ft 

215 PRINT RT R..E.; JB' 

220 IF R=33 RND E>0 RND E <30 TH 
EN LET E=E-I 

280 IF R = 36 RND E: 0 RND E '.30 TH 
EN LET E=E 4- 1 _ 

24-0 IF R=35 RND R>0 RND R<21 TH 
EN LET R = R~1 

250 IF ft=34 RND Rc21 RND R;© TH 
EN LET R=ft4-1 
255 LET U=U4-1 
26© LET 5 = R(E.,R) 

265 PRINT RT R.,E.,"I3" 

270 IF 5=1 THEN GOSUB 1030 
280 IF S > = 10 THEN GOSUS 2000 

230 GOTO 200 _ 

1000 PRINT RT 0,0."!^S'';)J-10 

1010 LET U=U-1© _ 

1020 PRINT RT P . F 
1030 PAUSE 5© 

104.0 PRINT RT R..E.''flB^B' 

1050 GOTO 170 


RND R ;■© RND R<21 TH 


2000 FOR F=0 TO 20 

2010 PRINT RT 0,0;"CQHGRRTULflTIO 
N5" ^ ^ ^ 0 • 


PAUSE 100 
CLS 

GOTO I© 

STOP 

LET U=INT (RND*20)+7 
LET Q = INT (RND *10) +7 
LET H(U,C)=10 
PRINT RT 

FOR F=U-2 TO U*2 
PRINT RT Q+2..F.;” ” 

LET R (0 4-2., F) = 1 
PRINT RT 0-2., F.. " 

LET ft (0—2.. F) = 1 
NEXT F 

FOR F=0-2 TO 0*2 
PRINT RT F., U-2, ” ” 

LET R (F., U-2) =1 
PRINT RT F,Ut3;” ” 

LET R ( F U 4-2 ) = 1 
NEXT F 

LET T = ( TNT (RND *4 > ) 

IF T=© THEN PRINT RT ©,Uf2. 


5160 IF T=t THEN LET =0 

5170 IF T=2 THEN PRINT «T Q+2,.Wf 

5*80 IF T=2 THEN LET ft <3v2,U) =0 
5190 ZF T=3 THEN PRINT RT 0-2,U,* 

5*00 IF T = 3 THEN LET R(0-2,U)=© 
5210 RETURN 
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90 
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120 

130 

135 

14.0 

00 

150 

200 
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205 


DIM R f&f 

D H'f tft.JSr i 

LET P=3 

FOR N=1 TO 5 

LET R<N >=IS.00 

NEXT N 

LET 5=2 

LET V = 1 

DIM 

FOR Nsl TO € 

PRINT "TYPE NRME OR INITIRL 

PRINT "OF- PLRTYEP. NQ,"iN 
PRINT OR IF NONE TYPE t" 
INPUT N) 

CL 5 

IF ft$(NJTHENGOTO 2 
NEXT N 

PRINT RT 1,1.; "HORSE NO. O 
PfiCE NO . . V 

LEI Y =Y +■ 1 


N OW YOU can watch a horse 
race without having to listen 
to Peter O'Sullevan tieing him¬ 
self in knots for the last furlong. It is 
a race game for up to six players. 
Each punter enters his initials and 
then inputs the number of the horse 
he has selected and whether he 
wants to bet each way or to win. 

The players start with 10 points' 
worth of capital and score according 
to the odds on each horse and the 
type of bet laid. The game ends when 
one of the punters finds himself 
without cash. 

Sent by C Winn for the expanded 
ZX-81. 


22 , 
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210 LET P$=" 1235 7101216“ 

220 FOR N=L TO 8 

230 LET B=Nf2 

24-0 LET A=B-1 

250 LET X=M+1 

260 PRINT AT X,5jN; P$'. 

A TO B )“ . 1“ 

270 NEXT N 

280 PRINT AT ll,l;"EfiCH PLAYER 
TYPE IN NO. OF" 

2p PRINT AT 12,1, ‘HORSE SELECT 
~300 PRINT AT 14-, 1, “E.G. TYPE IN 

310 P PRINT ’ RT T 15^ l^‘*OR 5E -FOR NO 
.5 EACH WRY" 

320 DIM 6$ *:©,&> 

330 DIM H(S) 

34-0 DIM ES*.S> _ 

111 IF R R*7n, It = “*" THEN GOTO 5 

00 

360 PRINT RT 17,5j R$ IN) ; 

365 PRINT RT 12,6,“TYPE IN NOU“ 
370 INPUT B${N> 

300 LET H (N) =UflL S$‘.N,1) 

3S5 IP B>(N,2)="E’’ THEN LET P-L 
320 NEXT N 
500 DIM DtS) 

505 CLS 

510 LET D*=”================“ 

515 PRINT D$; 

52*3 PRINT ©* 

530 FOR Ns1 TO © 

535 LET D(N>=29 

54-0 PRINT TRB 29. ■*' . N. “1“' 

S4-5 PRINT ' 

550 NEXT N 
560 PRINT D$, 

570 PRINT 

600 LET F-IUT (RNOslS)+1 
610 IF F <5 THEN GOTO 70© 

620 IF F<© THEN GOTO 710 
630 IF Fell THEN GOTO 720 
©4© IF Fc13 THEN GOTO 730 
650 LET G=f--6 
660 GOTO 80© 

700 LET Owl 
70S GOTO ©0© 

710 LET 0=2 
715 GOTO ©0© 

720 LET &=3 
725 GOTO ©0© 

730 LET 0=4 
©00 LET F=2*G-1 

©01 IF p(G)-S00 THEN GOTO 600 
610 LET K = INT (RND*3> +1 
815 LET K=K*INT G.2 
620 PRINT RT r 'F.DlG7; 

©3© LET 0 CG) = D l&) 

©35 IF L'iCff el THEN GOT O' ©70 
©40 PRINT RT F,D <.G) ; ; G; “J*“ 

850 IF DtG) <0 THEN GOTO 900 
360 GOTO 600 

870 Print rt f,o, I g, r - 

871 GOTO 85© 

90© IF P.2 THEN LET U(G>=1 

901 LET D(Gi=500 

910 PRINT RT F,B;G;”7 

915 IF U(G)=1 THEN PRINT RT 17 


10: “FIRST NO. G 
920 IF P=0 THEN GOTO 1000 
930 LET P=P + 1 
940 IF P=2 THEN GOTO 600 
950 LET WIG;=P-1 _ 

955 IF U(GJ=2 THEN PRINT RT 18, 
13, “SECOND NO G 

956 IF U !.©; =3 THEN PRINT RT 19, 
10;“THIRD NO- ,G 

959 PAUSE 100 

960 IF P=4 THEN GOTO 1080 
970 GOTO 60© 

1001 CLS 

1005 IF P=0 THEN GOTO 1200 
10 10 FOP. N=1 TO 6 

1020 IF B$(N,2/="E" THEN GOTO 16 

10 

103© GOTO 1090 
104-0 FOR 6=1 TO © 

1050 IF WIG) >0 AND H(N)=G THEN Cr 
OTO 10S0 
iOSO NEXT G 

1065 LET R(N)=R(N)-1 

1066 GOTO 1093 
1080 GOSU5 1251 

1031 LET R IN) =R ifii f8.2 tS 
109C NEXT N 

1200^PRINT RT 1,l;“PLAYERS SCORE 
1201 ~f6r N=1 TO 5 

1205 IF fi$(N,!>=”*” THEN GOTO 13 
©0 

121© FOR G=i TO © 

1220 IF HiN) =G AND U«.Gi=l THEN Ci 

OTO 1263 

123© NEXT G 

1235 LET R(Ni =R(N)-1 

1240 PRINT RT N+N + l, 1.; Ajr(N> i “ 

R <N) 

1243 NEXT N 
125© GOTO 1300 

1261 IF G=S THEN LET S=l& 

1262 IF G=7 THEN LET 5=12 

1263 IF G=& THEN LET 5=10 

1264 IF G=5 THEN LET 5=7 

1265 IF G =4 THEN LET 5=5 

1268 IF G<4 THEN LET S=G 
1267 RETURN 

126© GGSUB 1261 

1269 LET R. t.N) =R INJ <-S 

1270 GOTO 1240 
1300 LET R=0 
1305 PAUSE 400 
1310 FOR N=1 TO 3 
1320 LET U <N) =0 
1330 NEXT N 

134© FOR N=1 TO 6 

1350 IF R(N> C0.01 THEN GOTO 1400 

1360 NEXT N 

1365 CLS 

1370 GOTO 2O0 

1400 PRINT RT 14,1, “PLAYER NO 
N;" IS OUT OF MONEY“ 

1403 PAUSE 400 
1410 FOR N=1 TO 6 
1415 LET R(N/=10 
142© NEXT N 

1430 PRINT RT 16, 1.; “END OF GRHE” 
1435 PAUSE 60© 

1440 CLS 
1500 GOTO 90 
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S INCE WE loaded Bio-rhythms 
we have not been able to see 
the TV screen for interested 
parties. Everyone in the office is 
becoming a bio-rhythm bore. 

The program requires your date 
of birth and the current date and 
then displays a neat chart of the 
month, with curves for the physical, 
mental and emotional cycles. 

Your physical state varies over a 
23-day cycle and relates to your 
endurance, strength and aggres¬ 
siveness. The emotional cycle lasts 
28 days and governs anger, moodi¬ 
ness and optimism/pessimism. Men¬ 
tally, you oscillate between Einstein 
and ape over a 33-day cycle. 

The program was submitted by R 
Clark, of Saltash, Cornwall. 



1 RESTORE 

2 PRINT RT ©.. 
HYTHM 

10 INPUT 
“Day ";a..‘ 


'Enter Date Of Birth - ' 
Month b.; " Year 


20 INPUT “Enter Date Now ".. “ii 
onth "jd.;” Year ";e 
25 CLS 

30 LET t s INT i i <e) *3S5,25) * i 
(d-b)*30.35)-a) 

©00 FOR r=© TO S55 
©10 PLOT r,10 

©15 IF r = INT ir.’B't *© THEN FOR U 
s!0 TO 20 . PLOT r.. VI : NEXT U 
820 NEXT r 

830 PRINT RT 21,0.C'ist 10th 

20th 30th" 

©4-0 PRINT RT INK l; M phM*ic 

at INK 2; "saatal ink 4-. ' 

emotional” 

900 FOR r»1 TO 3 
905 READ u 

910 LET l=2*PI*tt-<INT tt/u> 

} SV 

920 LET K. =2*PI* (33-U) *.©3 
1000 FOR as l TO fc «-t«-*2*PI) STEP 

i©10 PLOT INK i i 1 AND U=23> *(2 R 
ND u=28) t(4. AND v =33) ) <a - l > * {35 

-2S+U) 9©+5 IN a*S© 

1020 NEXT a 
1030 NEXT r 
1040 DATA 23.. 2©.. 33 

1058 INPUT “Another Go 3 “;a$: X 
F a $(1) s"y” THEN GO TO 1 



















10 

LET fi=30 

20 

LET 5=58 

38 

LET 0=1 

4-8 

PLOT H.,S 

50 

TP 0=5 THEN UNPLOT 

68 

LET U$TNKEY$ 

78 

LET fi-Hfi = - L=R 3= L." 

OR Us = "0“ S PHD R < - ( i=J5 5 - OR 

U* = ! 

I OR U$="K"> PNC- > 1©) 

68 

LET B = S+ f. “7“ OR U5- S T" 

OR U $ = “ O''; PNO & < 35 f - L HJ s - 3 • Ofl 

U$ = ‘ 

K“ Ok U^=-L > hN& 

85 

IF Uj="Z" THEN COPY 

80 

IF UJ="0" THEN LET 0=1 

108 

IF U$="W' THEN LET 0=5 

11© 

IF THEN CL5 

15© 

UNPLOT R.-.B 

13© 

GOTO 4© 


D OODLE is one of the 
most useful programs we have 
received for the ZX-81 
tinkerer. 

It provides a way of drawing in 
eight directions under cursor con¬ 
trol. Keys 5 to 8 give the usual four 
points of the compass, while I, O, K 
and L give the points between. 

Key W gives UNPLOT and you 
can return to PLOT with Q. If you 
have a printer you can input Z for an 
instant COPY; if not, omit line 85. 
Key 0 clears the screen. 

As listed, the routine is set up for 
the IK machine and will let you 
draw only over a part of the screen. If 
a RAM pack is used you can work on 
the whole screen by changing the 
listing as follows: 

In line 70, where “A is less than 53" 
and "A is greater than 10", change to 
“A is less than 63" and "A is greater 
than 0 respectively. In line 80, "B is 
less than 35" and “B is greater than 8" 
become "B is less than 43” and "B is 
greater than 0". 

Thanks to Peter Wylie, of 
Christchurch, Dorset, for this very 
worthwhile routine. 
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G HOST TREKKER is a gen¬ 
uinely challenging game 
requiring quick thinking and 
quick cursor fingers as you chase a 
ghost around the haunted house. 

You begin as an inverse V in the 
top left of the screen and change 
direction anti-clockwise with 1 and 
clockwise with 0. Both you and the 
ghost leave a trail which you are not 
allowed to cross in your attempt to 
corner the wayward wraith. 

If you have sufficient luck and 
animal cunning to corner the 
fugitive phantom, you will be con¬ 
gratulated and your time displayed. 
A demanding game for the expand¬ 
ed ZX-81 from Alistair Crowe, of 
Llandudno. Gwynedd. Graphics 
notes: 

110—Thirty-two inverse full stops. 

130—Inverse A, graphic shifted M. 

inverse V. graphic shifted N. 

350 & 400—Inverse full-stop. 

410—Graphic A. 

530—Inverse “Congratulations, you 
have caught the ghost. It took 

you.time units. 

550—You hit a trail and have been 
killed. 

560—For another go. press any key. 


10 FOR ft=0 TO 21 
110 PRI NT hT m ' 

150 NEXT .. _ 

130 LET R*=-- g5S55B " 

14-0 LET X = i 
ISO LET Y»1 
150 LET Y=i 

170 LET P = INT (RNi>i i£*> +2 
ISO LET 0=P 

200 LET 
210 GOTO 370 

220 LET h=R*<INKEY*="0">-CINKEY 
$="1") 

10 FOR R=0 TO SI 
110 RT - - 

120 NEXT 
130 LET 
14-0 LET X = 1 
ISO LET V=1 
160 LET G=3 

170 LET P = ZNT <RNO*i Gt 4-2 
130 LET G=P 

190 LET DZRbZMT <RND*4> *1 
20© LET T=0 
21© GOTO 37© 

220 LET - i XNKE' 

230 IF H<:1 THEN LET R=4 
240 IF P; 4 THEN LET 2=1 
250 LcT X = X 4- p =3‘ ) -<.«=! > 

26© LET Y«YftftsS>-tfls4) 

270 IF X >20 THEN LET X. = l 
250 IF X <: 1 THEN LET X=2© 

29© IF Y >30 THEN LET Y=1 


IF Y<1 THEN LET Y=3G 
310 PRINT RT X.X.LVY.,- - ' 

520 PRINT RT X..Y . 

LET C=PEEK (PEEK 16395 4-256 *■ 
PEEK 16399) 

340 IF C =11 THEN GOTO 530 

350 IF C < >CODE S THEN GOTO 55 




36© PRINT PT X »Y 
37© LET XX =X 
38© LET T=T 4-1 
590 LET YY=Y 

40© PRINT PT INT <RND*22) «Zh 
RND 433) ; 'S 
41© PRINT RT P.O,'Jr 
420 LET P=P4- <OIR=l) - <DIR = S) 
430 LET 0=04- t©XR=3> - <.DXft=4 f 
440 IF P < 1 THEN LET P = 2© 

450 IF P>2© THEN LET P=i 
460 IF 0<1 THEN LET 0=30 
470 IF O>30 THEN LET 0=1 

AS© PRINT hT P..O;. 

490 IF RND <,© THEN GOTO 22© 
500 L ET ZEE = INT *.RND*4> 4-1 
510 LET DIR=ZEE 
520 GOTO 22© 

5-3© PRINT RT 0,0.;' 



57© PAUSE 10© 
530 IF INKEY £ 
590 GOTO 1 


“HEN Guiu 
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70 LET R=0 
75 LET B =R 
30 CL'5 

•S5 IF R = 10 THEN GOTO 500 
9S LET D=0 

95 LET F = IMT fRHD* I5.U IS 
100 LET E=F*2 
105 LET Rt=R + I 

HO PRINT RT 4-, 4-. DflH "; R; TRB I 
5; 3; ** DESTROYED*' 

... .12 0 P R INTflT20 . 0;. 

“ 130 PRINT 8T 19/f;CHR$ 139 
14-0 GOSUS 4-00 
150 FDR Z=1 TO 12 
160 NEXT Z 

203 IF IMKEV'$="" THEN GOTO ISO 
205 LET G=0rlS 

300 FOR H =IMT G TO S3 STEP 2 
310 IF H >63 THEN GOTO SO 
320 LET I = INT l3^4-^CG5 (H/ tG-4-> 

SPIl ) 

33© PLOT H,I 

34-0 IF 1=4- OR 1=5 THEN GGSUB SO 

0 

360 GOSUS 4-00 
370 UNPLOT H,-T 
330 NEXT H 
390 GOTO SO 

4-00 PRINT RT 12,0;" &M* " 

4-10 LET £>=0+1 

4-2© IF D > 28 THEN GOTO SO 

4-30 RETURN 

SI© PRINT ftT 4., 4-; "TGTRL. DRHS £>E 
SROVED **;B 

520 PRINT RT 3,0; "PRESS NEULXNE 
FOR NEXT GRHE" 

53© IF IMKEV$s w " THEN GOTO 530 
54-0 RUN 

S00 PRINT RT 19 , F ; "jfflHfc" 

•610 LET 3=3 + 1 
S20 FOR Z = I TO 24- 
630 NEXT Z 
700 GOTO SO 

300 IF H=E OR H=E*1 THEN GOTO 6 
00 

310 RETURN 


A DAMBUSTERS game for 
the ZX-81. Droning over 
Hamburg in the flak-riddled 
Lancaster, the bomb-aimer tensed 
over his sights, the Barnes-Wallace 
special already spinning in the bomb 
bay—and everybody humming the 
tune. 

You have 10 dams to bust and the 
bombs are bounced by the novel 
cosine-controlled routine in line 
320. The position of the dam is 
randomised and the bomb is 
released with any key. 

The program uses only 2K and 
there should be plenty of room for 
elaboration of the graphics. 

Submitted by R Larham, of 
Chatteris, Cambridgeshire. The 
reviewer managed to account for 
only seven. Graphics notes: 

600-Graphic shifted A inverse 
asterisk, graphic shifted A. 
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1 RE ft SKI SLOPE 

2 LET 5=0 

3 LET P = 15 
4- LET C=13 

10 FOR N=0 TO SO© 

30 PRINT hT 7., 0.c " *■*■*•** *■ 

*******************” 

30 PRINT RT ?.»c.; " 

4-0 LET Cs=C + IWT (RNDtSJ -1 
4-5 IF 0=30 THEN LET 0=0-3 
SO PRINT RT 0., P.i 

55 IF PEEK (PEEK 16336 4-355 iPEF 
K. 16399) =33 THEN LET 5=5 4-1 
33 PRINT 

60 LET P = P4( INKEY 5= " S “ ; - < INKEY 
$ =“ 5 ” J 

54- IF Ns 194 THEN PRINT RT ?,C- 

1; 

55 SC-POLL 
70 NEXT W 

30 PRINT RT I©., ©.. INT (N/S) *10 


I N SKI SLOPE for the unexpanded 
ZX-81 you slalom down the 
freshly-fallen whiteness of the 
screen, dabbing frantically at the 5 
and 8 keys to avoid the forests of 
coniferous asterisks racing towards 
you. 

A score based on the number of 
trees you managed to hit is displayed 
when you cross the finishing line. 
Submitted by John Plunket, of 
Wetherby. North Yorkshire. 


S POTS WAT is very simple 
game for the unexpanded 
ZX-81. When the program is 
run. nine spots will appear on the 
screen in a 40 by 40 square. Your 
flashing spot is manoeuvered with 
the usual cursor keys to wipe them 
away. 

When the screen has been 
cleared, press 0 and your time will 
be displayed. After a few moments 
a new game will begin. 

Sent by I R Oakley, of Sandwell. 
West Midlands. 


| / 


\\ v s.-amt * 
skV. 



5 LET 

10 LET 8=10 
20 LET T=0 
30 FOR N=1 TO 
4-0 LET C = IWT 
50 LET P=XNT 
60 PLOT 0,0 
70 NEXT N 
30 UNPLGT R ,3 
35 LET T=T*i 


(RN&4 4.0 A 4-1 


IF 

INKEY $ = "B" 

THEN 

LET 

1 

it 

II 

iX 

IF 

INKEY$="S" 

THEN 

LET 

R=R -t 

IF 

INKEY $=-‘6" 

THEN 

LET 

B=B- 

IF 

INKEY$="T" 

THEN 

LET 

B=B« 

PLOT H .B 

IF INKEY $ = "&" 

THEN 

GOTO 160 


150 GOTO ©0 
160 PRINT T/5 
165 PAUSE 500 
170 CLS 
130 RUN 



/ --V-* &V 

' « v «^‘ 

\ \ * 

■ 4 * ->• » ^ 

* «>■ % ■ 

\9 t. 

n $ 


SPOT 

SWT 
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W E HAVE had total recall 
since we started playing 
Memory. It is a memory- 
testing routine for the 16K ZX-81 
which invites you to try to recollect 
the positions of various symbols in a 
six by six grid. 

The program first displays the 
grid and the 36 characters enclosed 
in it. You have very few seconds in 
which to absorb the display and are 
then required to input the positions 
of matching pairs of the symbols. Up 
to four players can compete and a 
running score is kept of your 
successes. 

Submitted by jack Anderson, of 
Svenstrup. Denmark. 



memory 

I- \ -1 


30 DIM B(6/6) 

4-0 DIM I* IS* 

50 DIM TS(10) 

60 PRINT " 

?i PRINT “THE IDER OF '.hiI- URM 

IS TO" 

60 PRINT "IMPROVE YOUR MEMORY. 


I' FERE 


90 PRINT "IN RN RTTEHPT TO FIN 
D MATCHINS" 

100 PRINT "PFIFO OF ChfRRHC 

YOU "“TURN. 

110 PRINT TUU PIECES- IF TME T 
UO PIECES" 

120 PRINT "HATCH, THEY ARE YOUR 
S TO KEEP," 

130 PRINT "AMD YOU HR’JE ANOTHER 
"“TURN""-" 

14-0 PRINT "OTHERWISE, THE NEXT 
PLAYER HRS AGO." 

15© LET T3 ="$+=*?£./. g . ; 

ISO FOR N=1 TO S 
173 FOR MI TO 6 
130 LET S = INT CANDS18 + 1} 

190 IF I 13} =2 THEN GOTO ISO 

200 LET I(S)=I(S)+1 

210 LET S tN,M} =S 

220 NEXT M 

230 NEXT N 


If 0 P ubFeSs' Hfix'i; ■■ ZNPUT NUMBER 

25® LET A?=INKEY$ 

?gl N I So?o D |s §* <29 OB CODe 

270 LET PLAYERS=URL R$ 

230 CLS 
290 PRINT . , , , 

300 PRINT “‘ 


310 FOR N: 

32^r i£rr 

330 PRINT 
156?, ”1 ■ 

N+156) 

34.0 PRINT 


I TO S 


_";CHR$ <N + 
8 S" , CHR$ f 


37© FOR N=1 TO S 
330 FOR M=1 TO S 

390 PRINT AT I+H*3,9+N*3; T $VSVW 
, M) ) 

4.00 NEXT M 
4-10 NEXT M 
4-20 PAUSE 100 
4-30 FOR N = 1 TO 6 
4-4-0 FOR M = 1 TO 6 


SINCLAIR PROGRAMS November/December 1982 


29 






'4-7S NEXT N 
4.80 POKE 184-1© 0 
4-9© FOR N=1 TO 9 
50G LET X f N) =0 
510 NEXT N 

520 LET PL=IMT {RNDjPLflYERS)+1 
500 REM STRRT GAME 

PLsPLtiPUmJWERS) <-1 

620 PRINT RT 4,0; "PLRVER " ; PL .R 
T 7^0; TL«RN";RT 6 , ©,- "If" 

625 LET X(9)«X(9><fl 
630 FOP N—1 TO £ 

64-0 FOR N -1 TO 2 
6-5© LET T=28+9*(N=Lj> 

655 LET R$=INKEV$ 

6 6 ?S Ef 7 o 8 ? 8 MI'- T OR CODe R * >T+ 

670 LET 1 t»+a* (« -1) ) =CCS>E «*-T 

€-3© PRINT RT S jN+M*2-2; fl* 

69© NEXT N ' 

700 IF BiKSiM-1) ) =0 OP 

) M fHEN N C-OToHl0 <3) SND I<a) " It41 

. avsiw ,svaa?*p; itiiM.f,’?*"- 1 

720 NEXT H 

. 7 ?§ e 5 f g I4o ‘Ik 1 !S> * ' B ' 1 <3> •• 114: 


THEN GOTO 750 

7&0 PRINT RT.8,0.;" " ; hT I©. 

,' 23,20.; RT 11 ” « ftT x ( 

i«S?J3;l/» > s* +0; “ " :RT K*'*3+l, 

770 GOTO 600 

800 PRINT RT 10X0:"YOU GOT- RT 

ii,0.; “IT-";ffT 1(2) t3+l?i<iV*3 

+Z I ;t*, *® * 1 1 < S> *9.; PL 

810 LET B<I<1).I{2)>=0 
§§2 *-|T B '• I <3> > I «4> ) =0 
848 81? 

85© FOR N=1 TO PLRVER5 

l?l hi5T M 5 M * 1<N * 4 ’ 

..111 


111 t«em goto saa 

IWT BT -?6?Ti, 8; » ;RT 18 

RT 23,20.;** * 

92© GOTO 620 

950 PRINT RT e.2irH-l;" 

960 GOTO 64-0 * 

3?lf “GRMeT . ?T** tS -‘ ®’ : ” EN& OFRT 1 

llfl LET P h=S^ RS=1 THEN GOT ° 1256 

1020 FOR N=5 TO PLRYERS4-4- 

i§2§ ffix? t 8 ,>xtw THE * *- ET tt=M 

1050 FOR N=5 TO PLRVER5+4 

1060 IF I (N‘> =1 tM’l THEN LET UN-4- 

1065 NEXT N 
1070 LET H=0 

Ifll hi? K:IJS<gV?SP s 

111® NEXT ‘ff = ® THEfi - CT «*«*>■' 
1110 GL-5 

p1x^ 1 «e1°^u?I?S uins 


114.0 GOTO 120© 

1150 PRINT "DRRU BETWEEN PLRYER.S 


1160' FOR N = 1 TO PLRYER e - 

HIS 5E*?<S'- 0 THEfi PRItJT "• 
— 0 3flS R usEofr- 5 ''®"' 1 !9i - TURN " 1 

1210 FOR N=1 TO PLRYER5 
.Y^?® :PRI HT RT 6+N,0j "PLRYER *';N, 
GOT * j I(N+4) 

1230 NEXT N 


124-0 STOP 
1250 FOR N=1 
1260 NEXT N 
1270 CL-5 
12S0 PRINT x 
VOU FINALLY 
1iSS PRINT . 

: 

1300 STOP 

1310 SflUE “MEHORB 

1320 RUN 


TO 


.x .• *'CONOPOT?jLPrT TON-5 
MALE IT...*' 
"NUMBER OF ” TURNS' 



30 
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C ITY BOMBER this is a version 
of the well-known arcade 
game, written by E Wrigley 
of Bury, Lancashire, for the 
Spectrum. As you would expect, it is 
in glorious colour and complete with 
all relevant explosions. 

Lines 2 to 16 set up the user- 
definable graphics and should be 
RUN before the rest of the program 
is typed-in. They provide a city of 
coloured skyscrapers which you 
must blast away before you crash 
into them. Only one bomb can be 
in the air at a time and five levels of 
difficulty enable you to select the 
speed of the aircraft. Graphics notes: 
34—Graphics shifted R. graphics 
shifted S. 

56—Graphics shifted P. graphics 
shifted Q. 

104—Graphics shifted O. 

122—Graphics shifted 8. 


1 PhPER S: border s. ci_s 

2 DflTR 0,0,BIN 00010010.BIN © 
0011110,BIN 0000110©.BIH 0000110 
©.BIN 00001100,0 

3 DRTR 0,0.. 0. BIN 00111111,£55 

, 1 , 0.0 

4. DRTR 1,3,7", 255, 255 . BIN 1111 
1100,BIN 11111100.SIN 01111130 

5 DRTR 0,0,0,0,BIN 00011000,3 
IN 30111100, SIN 011 11110, BIN i'll 
11111 

S DRTR 255,255, BIN 011*30110,2 
55,255,BIN 01100110.255,255 

12 FOR i=111 TO 115: FOR n=0 T 

o ? 

14- RERD X : POKE U5R CHR$ i +n . 
16 NEXT n. NEXT i 
19 LET SC=3 

22 PRINT RT 3,5.: INK 4.:" CITY B 
3MB - F DROPS BOMB.'.RT 11.7; BP 
IGHT 1, INK 3,' "DIFFICULTY 7 (IT 
O 5)-: INPUT D: LET D=5-D 

28 PRPER ©: CLS BORDER 3 

29 LET S = — 1 

30 FOR 1=5 TO 25 

32 INK 1+INT JRNDJr?) : PRPER 1 * 
INT (RND*73: LET q=ll+INT (RND*2 

34. PRINT RT q,„»," PRPER 0 
FOR k=q+l TO 21: PRINT RT K . ,i . "E 
" : NEXT K 
36 NEXT J 
50 FOR J = 1 TO 21 

52 PRPER © INK 1+INT (RMD*73 
54. LET nO=(21-,i) 

55 FOR k =25 TO 1 STEP -1 
58 PRINT RT , K,' "“ : BEEP .0 

1. no 

50 FOR l=© TO d 

62 LET S=S(INKEY$="f * J+*3 = 1 
). GO SUB 10O 
64. NEXT l 

SB IF 5CREEN$ *j,k-l) < > “ •• THE 

N GO TO 14.0 

70 NEXT k : PRINT RT J . 1; •• 

74- NEXT J 


75 DRTR 4 . 4. . 4. . 0 

76 RESTORE 75- FOR J=1 TO 4. R 

ERD X : BEEP . 25* f 1 * ( J =41 1 . x : N 

EXT fc i 

6© PRINT RT 21,©, FLfiSH 1: INK 
3; PRPER S; “SCORE: “; sc.: “.stands 
y for taka-off"-, pruse 30 s 

SI PRPER 0: FOR j =23 TO 0 STEP 
-1 

82 PRINT RT J ; RT .» 

j," INK 1+INT (RNDf63 . *'“ 

84 NEXT j: GO TO 20 

100 IF v i =21 THEN RETURN . IF 3 = 
1 THEN LET «> = .»+! 

101 IF S=1 THEN LET ft) = J+2- ( =2© 

102 IF S=1 THEN LET h=k+2 IF 3 

= 1 THEN LET d=d.*2 

103 IF S <0 THEN RETURN 

104 PRINT RT M —1 .h ; “ •• : RT % . h ; * 

V": BEEP . 005,21-1» LET .*»=»+! 

105 IF SCREEN! (tt.h)O*’ “ THEN 

GO TO 119 

108 IF « <21 THEN RETURN . IF % ,*- 
21 THEN LET f»=21: GO TO 120 

119 LET SC=SCtl0 

120 IF m >21 THEN LET f»=2l 

121 PRINT RT m-l,h. PRPER 0;“ " 

FOR n =7 TO O STEP -1 

122 PRINT RT {» . h . INK n, *S BE 
EP .02,n-12 

124 NEXT n 

126 LET Sa-1: LET d=d*3: RETURN 
140 PRINT RT 

142 DRTR 0.0.0 , -5 . '-5 . -5.0 
144 RESTORE 142. INK 2 ' 

146 FOR n = 1 TO 7: RERD X; CIRCL 
E k*6+4, (21-j) fS,n: BEEP .05**14- 
8 *(n =7) ) , X : NEXT n 
148 PRINT RT 11,10; PRPER 6: IN 
K l; “SCORE: SC 

9996 STOP 

9997 REM City bomb 

9998 REM 0 E.URIGLEY 29x7/82 
9399 SRUE “CitybOWb”: RUN 
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MUSK 

MACHINE 

M USIC MACHINE is the /( 
most frivolous program we 
have received. It is from \\ 
Jason Fitchew of Leigh-on-Sea. 1) 

Essex. It uses the FAST and SLOW // 
commands on the ZX-81 to generate // 
a kind of musical scale through the 
TV speaker. \\ 

The scale is to be found on keys 1 )) 

to 6 and is the kind of basso- (( 
profondo associated usually with 
Count Dracula hunched over the // 
organ keys in the crypt at midnight. )) 
Tune the dial slightly off-station to 
start the background hum, turn up cJ k 
the volume and shake to that vam¬ 
pire beat. Graphics notes: 

68,180 and 243—Inverse. 



5 POST 

6 SLOU 

7 FAST 

££ IF INKEY $E= 
"C" 

2? IF INKEY 5= 


26 IF INKEY t=' 

23 IF INKEY$=• 
” 200 “ 

30 GOTO CODE 1 

4-0 FAST 

4-1 SLOW 

50 SLOW 

Sw FAST 

65 IF INKEY*=' 

,67 IF INKEYS=* 


70 GOTO CODE ' 

80 FRST 

81 FAST 
83 SLOW 

90 SLOW 

91 SLOW 
110 FAST 

_12© IF INKEY*= 

~125 IF INKEY S=' 
- “C” 

126 IF INKEYS= 


4” THEN GOTO URL 
5” THEN GOTO COD 
6" THEN GOTO URL 


2” THEN GOTO COD 
4" THEN GOTO URL 
5” THEN GOTO COD 
6” THEN GOTO URL 


2” THEN GOTO COD 


5” THEN GOTO COD 


32 


127 

IF INKEY$ = 

“6” 

THEN 

GOTO 

URL 

•200" 





130 

GOTO URL " 

60“ 




14-0 

FIRST 





150 

SLOW 





A w>is£ 

5LQU 





153 

SLOW 





154- 

SLOU 





16© 

FAST 





17© 

IF ZNKEY*= 

”4” 

THEN 

r»QTO 

URL 

”30' 





171 

E "8 ' 

IF INKEY $ = 

”2” 

THEN 

GOTO 

COD 

172 

IF INKEY *= 

”-S” 

THEN 

GOTO 

COD 

E ”C 





173 

IF INKEY *= 

”6” 

THEN 

GOTO 

URL 

"200" 





1S0 

GOTO CODE 





200 

FRST 





21© 

FAST 





220 

SLOW 





221 

SLOW 





222 

SLOW 





223 

SLOW 





229 

SLOW 





230 

FAST 





24-0 

E "1 " 

IF INKEY K- 

”2” 

THEN 

GOTO 

COD 

24-1 

E "C‘ 

IF INKEYS= 

”3" 

THEN 

GOTO 

COD 

24-2 

”88' 

243 

F "S' 

IF INKEY *= 

”4” 

THEN 

GOTO 

URL 

IF INKEYS- 

”5” 

THEN 

GOTO 

COD 

250 

GOTO URL " 

20©' 
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16K ZX-81, submitted by Andrew 
Jackson and Paul Jenner of 
Warrington, Cheshire. 

The aim is to line-up the letters 
displayed on the three ‘reels’. If you 
manage a jackpot, you are given the 
chance to take a fifty-fifty gamble 
with your winnings (Y/N). You can 
win five pence, or lose 10. Five points 
can also be won for a diagonal line. 

Occasionally you are given a 
“nudge" option—i.e.,—the chance to 
change three letters. To move up the 
reel one place, press 1; for reel two. 
press 2; and press 3 for reel three. To 
move a reel down one place, press Q, 
W or E. If you do not wish to nudge. 
hitN. 

The program usually will wait for 
some kind of input, so if in doubt hit 
a key; in desperation, hit RUN. 
Graphics notes: 

1000—Inverse ABCDEABCDEABC- 
DE. 

1005—All inverse spaces, except for 
inverse hyphens after A$(A) and 
AS(B). 



1 REM "ONE RRNED BRNDIT" 

2 PRINT "1 RRHEO BRNDIT BY R. 
-JRCKSON" 

5 PAUSE 10® 

10 CLS 

20 {let s=0 

25 LET N=X© 

50 LET R=INT *RND*5> +6 

51 IF XNKEY " THEN GOTO 55 

52 GOTO 51 

55 LET 6=INT *RND*5> <-& 

60 LET C = INT (RNL'tS'j 4-6 
65 GO-SUB 1O00 
70 LET G=XNT tRNDtSif 
75 IF G=i THEN GOSUB 6©© 

80 IF AND A$ 

(G> THEN GOSU6 30® 

85 IF =R* *.6> RND R**.B> = 

R$CC-li THEN GOSUB 200 

90 IF R$ <.R-lf =R$ i&f AND = 

A$«Cfl) THEN GOSUB 20© 

95 LET N=N-1 

10© IF N = -i THEN PRINT RT ©.,©., S 
105 IF N=-l THEN STOP 
110 GOTO 5© 

20© REN MINOR WIN 

205 LET 5=5+5 

21© PRINT 'WIN 5 P" 

220 PAUSE 10© 

225 CLS 

230 RETURN 

SO© REM URCKPOT 

305 PRINT RT 00.; "URCKPOT" 

31© LET K = l© 

320 PRINT RT 0.30.K 
325 PRU-SE 20© 

330 PRINT RT 0.,©.. "GftHBLE 

331 print nrr * 

K 335 IP THEN let s=5f 

IF J=;\N" THEN RETURN 

IF INNEY ^THEN GOTO 36© 
350 GOTO 330 
360 LET L=INT (RND*2> 

365 IF L=i THEN LET K=* 4-5 

370 IF L=G THEN LET K=K-LS 

371 IF L = 0 THEN LET 5=54-K 
375 IF L =0 THEN RETURN 

?§£ IF K;=5© THEN LET 5=5fK 
1585 GOTO 33© 

600 REM START OF NUDGE 
603 LET H=0 


605 

606 
61© 
615 

PR XNT RT © . 0; 
IF INKEY*="N" 
IF INKEY$="N" 
IF IMKEY *=”!** 

"NUDGE *?'* 

THEN CLS 

THEN RETURN 
THEN LET A=Af 

616 

IF 

INKEY*="0" 

THEN 

LET 

R=R- 

I 6,1 " 7 

IF 

INKEY *= "W" 

THEN 

LET 


618 

IF 

XNKEY$=”E" 

THEN 

LET 

c=c- 

*520 

IF 

INKEY$="£" 

THEN 

LET 

B = &4 

625 

IF 

INKEY fc= '"S'- 

THEN 

LET 

C =C 4 

630 

IF 

INKEY * c 

THEN 

LET 

H = H4 

54.5 

©Q 

IF 

INKEY *< 

THEN 

GOSUB 1© 

650 

655 

601 

IF H >• = 3 THEN 
GOTO 604 

IF K>=S© then 

RETURN 



100© LET ft*="j 
1301 CLS 
1005 PRINT RT 7.16,"1 £ 


R* tB+li ; 
1006 PRINT fa 
101© RETURN 


3".,, 
<c-i 

''25T\. Rfc '.£■■} : « 

- .. .,A$i.ftfi? , J| 

. 0.; N . 5 


SINCLAIR PROGRAMS November/December 1982 


33 




A RE YOU worried about your 
driving test? Or your brakes? 
Stopping Distances displays a 
speed and requires you to input your 
assessment of the stopping distance 
in optimum braking conditions. 

Your answer is marked as "too 
far", "too short" or "correct". You 
have three chances before being 
shown a representation of the effects 
of late braking and the correct 
answer. 

A program for the IK ZX-81 from 
Simon Cross, of Ipswich. Suffolk. 


DISTANCE 


5 CLS 

10 LtT R=0 

20 LET B-2B irIWT {RNDi7) 

30 IF S<2© THEM GOTO 20 
4-0 LET C=B+ CB —20} .'20* .5*6+B 
S3 PRINT ''UHflT IS THE MINIMUM 
STOPPING" 

60 PRINT "D2STRNCE IN FEET FOR 
R CRR" 

70 PRINT “TRRUELLING RT *’; B" 
M.P.H. ?*• 

S© INPUT D 
90 FOR N=5 TO 7 
200 PRINT RT N. 0." 

110 NEXT N 

120 PRINT RT 5 . S : D ; " FEET** 

130 LET R=R+1 

IAS IF C=0 THEN GOTO 300 

150 PRINT RT 7.3; "URONG-**: 

160 IF D>C THEN PRINT "TOO FRR, 

^170 IF D <C THEN PRINT "TOO SHOR 

is© IF R=3 THEN GOTO SIS 
190 PRINT *’ TRY RSHIN*' 

200 GOTO S3 


210 LET 
220 BET BS=" 


230 PRINT RT 9,17;R$; RT 10,16;B 
RT S . 2.: R$; RT is . 0; BS ; 

24.0 FOR N=0 TO 4-3 ' 

250 NEXT N 

250 PRINT RT 9 .. 3 . fi RT 10.3; BS 


f 51 • i a *i®*i RT s- is-; n*; «t ‘ i© ; 14 . 

-• “T 9.- m&f ■*; RT 10.16; " 

JHfc CRUNCH'* 

27© PRINT 

2S0 PRINT "CORRECT RNSUER = " c 
" FEET * 

29S GOTO 33® 

300 IF R>1 THEN LET R* = " TRIES" 
310 LLIST R=1 THEN LET R$=" TRY 

320 PRINT RT 10.. 0; "CORRECT. YOU 
NEEDED *;r;rs 

333 PRINT RT 13.0;"PRESS N^L FO 
R RNOTHER GO** 

340 INPUT RS 
350 RUN 


34 
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Nj 


BflTTLE 


1 PRINT RT 21.. 0., 


2 PRINT RT 20.0; '•RRRRRRRfiflRRn 
RRRRRRRRRRRRRRRRRRRR" 

3 LET Q=iei 

4 LET U*161 

10 REM "STRR BRTTLE" 

20 LET R=10 

30 LET B = INT (RNC'*2I> 

35 PRINT RT R-l.,5.," 

4.0 PRINT RT R..5..CHR* 6.;CHR$ Q, 
CMR$ 134 

45 PRINT RT ftfljS; ** 

4.9 PR INT RT B -1.. 23.C " 

50 PRINT RT B..23.;CHR* 6.; CHR* U 
; CHR $ 134 

55 PRINT RT B + 1.23;" 

60 LET C = INT <RND*-3> 

T® IF C=2 THEN GO SUB 260 
0 e ® IF INKEY*="0" THEN GOSUB 12 

1 90 IF INKEY*="?" THEN LET R=R- 
3 10® -XE INKEY*="6" THEN LET R=R*- 
110 IF C=*0 THEN LET B=B-1 


F IGHT the dreaded Ganglions in 
Star Battle. It is desperate 
hand-to-tentacle combat, an 
eyeball-to-eyestalk confrontation, 
fighting tooth and claw. 

On the right is your omnivorous 
opponent, every pulsing pseudopod 
clutching a laser. You and it can 
sustain five hits before imploding in 
airless outer space. Go up with 7. 
down with 6, and fire the laser with 
0 . 

Sent by Michael Jennings, of 
Barnsley. Yorkshire for the expand¬ 
ed ZX-81. 
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T HIS MACHINE code Re¬ 
number routine will re¬ 
number a program in steps of 
10 from line 1 to 9999. Line 9999 must 
be included or the program will 
crash. Type-in the re-number pro¬ 
gram and RUN. The 38-character 
REM statement will then contain the 
machine code and lines 10 to 40 can 
be deleted. 

Then you can type-in your pro¬ 
gram, not forgetting to put in line 
9999 as the last number. Any time 
you want to re-number, type-in as a 
direct command PRINT USR 16514. 

The routine for the ZX-81 was sent 
in by J. Stephenson of Bolton. 

A similar program for the Spec¬ 


trum makes use of the Spectrum 
MERGE command. The program to 
be re-numbered is LOADed first and 
then the re-number program is 
merged with it. The program to be 
re-numbered must have a starting 
number of more than 10 before the 
routine is merged with it. 

When the re-number is set up all 
you have to do is run it. You will be 
asked to enter the start line you want 
and the required increment. When it 
has finished re-numbering, the pro¬ 
gram will STOP. 

The program, submitted by W J 
Steen, of Halesowen, West Mid¬ 
lands, will not re-number GOTOs or 
GOSUBs. 



c 





ZX81 

1 REn 153^567520.1234-567590123 
4-5S7S3S1234-5S7S 

13 LET HS = "Si7DdSliefi0SA6234.E2 
B3E27B822S4-3ESDB9C 8722373234E234. 
52309B73ESRSB3S31ld5FI8E0“ 

20 FOR R=0 TO 37 
30 POKE! 16514+fl . IS^CQOE 
+1)+CODE R*tfii2+2)—476 
4.0 NEXT R 


SPECTRUM 

1 input ** start line and inc 

resent 7 “;SL..IN. I_ET B=PEEK 

23635 +2563-PEEK 23636 

2 TF 1 256 tPEEK R+PEEK CR-KL3 > = 
3i_ THEN GO TO 4. 

3 LET a=ft+4+REEK Cfi+2) +2563fP£ 
EK CR-t-33 : GO TO 2 

4- LET fl=Rt-4 +PEEK £R+ 23 t256tPE 
EK £ R-r31 . LET 3i_=S 

5 IF R >=(PEEK 23E27*256*PEEK 
235263 THEN STOP 

S POKE B . IHT tSi_72S6) : POKE { 
R + l) . 5L-INT (3i_,'256J r GO TO 4 
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A USEFUL program for heli¬ 
copter pilots and long-dis¬ 
tance crows, is how D G 
Chapman describes his U.K. Map 
routine for the IK ZX-81. AA hand¬ 
books and the like generally list 
towns with a four-figure reference 
number which refers to the 
10-kilometre, squares which make 
up the National Grid. 

Input a pair of those numbers— 
e.g.. SK57NW32—and the computer 
will calculate the distance in miles 
between the south-west corners of 
the relevant squares. 
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STLTFTR TRTMTG" 

30 INPUT ,tr 

„ LET C$^B$tCODE “* “ TO CODE 

4-0 GOSUB CODE ” COS 1 
50 LET H=N 
60 LET D=C 

LET C$ = B$itCODE J TO CODE 

•30 GOSUB CODE "COS •» 
q. fCOL'E f ' W 

RL B$(CODE ", “>-URL B$(COPE 

100 LET H=RB-S { (C-D) fCODE 
RL B$(CODE "9*" 1 —URL B* LCODE 

I 1 ® PF ? INT > 

il-JHo g> ;B * (1 TO 4i ; " TO 

13S STOP 

CO®® N=CODE '*“TO 10T STEP 

hIn 0 g5to C I5§* sn to n+code "*••> T 

320 NEXT N 

330 FOR C=CODE “* “ TO CODE “I " 
^24.0 IF N t =CODE “=“ THEN GOTO 27 

350 LET N=N—CODE 
360 NEXT C 
270 RETURN 


37 



5 REM PRIME FACTORS: IDA 

60 IF(N/Zl) * Zl=N THEN GOT80 

10 INPUT N 

65IFN=1 THEN GOTO 95 

20LETM=N 

70NEXTZ 

25 IF N/2 * 2=N THEN GOTO 35 

75 GOTO 95 

30 GOTO 50 

80 PRINT Zl; "A*” 

35 PRINT 2; "A*" 

85 LET N=N/Zl 

40 LET N=N/2 

90 GOTO 60 

45 GOTO 25 

95 IF N=M THEN PRINT "PRIME" 

50 FOR Z=1 TO M/4 

100 IF M-N THEN PRINT “=A"; N 

55 LET Zl=Z*2+l 

A=1 SPACE 


A ll schoolchildren 

could do with friendly help 
with mathematics especially 
when trying to find the prime factors 
of a number. Prime Factors runs on 
an unexpanded ZX-80 and, with a 
few lines changed, will run on a 
ZX-81. 

The ZX-81 version needs an 
integer statement at lines 25 and 65. 
The author, James Annan, of 
Edinburgh, says that it will not run 
on the unexpanded ZX-81 but surely 
at least one reader will find a way. 



llPipS 


N'?!sS 







P OST MAN is one of those 
games which are so silly that 
they are good. You are a post¬ 
man collecting mail from a post box 
at screen centre but obstructed by 
a hungry hound in the execution of 
your duty. 

Fortunately, you can out-run the 
carnivourous canine—you are an 
express deliverer—and are able to 
score with every collection you 
collect. 

Control the post man with the 
usual cursor keys and when you 
are caught, the number of collec¬ 
tions made is displayed. 

Submitted by Nicholas Sheard, 
of Prestbury, Cheshire, for a lK 
ZX-81. Graphics Notes: 

20-Graphic 8, U, space, space, 
Graphical. 

120 - U, graphic 5. 


POSTNfiN" 


DOG" 


1© PRINT "O 
2© PRINT " fU 
30 PRINT "-J 
4-0 PfiUSE IS© 

6© LET 6=0 

7S LET R = INT SRND*1S> *2 
60 LET B=i 
9© LET C=B 
100 LET &sfi 
1 IS PR I NT AT RB.. " O " 

13© PRINT- :TT “4-5-1-.. S -1..‘ 

13G PRINT AT R+2..B.; ~L V ' 

14-S PRINT RT G-L..D.; "a S" 

150 PRINT RT l V*V' 

170 IF A=10 RND 6=15 THEN LET 6 
=5 + 1 

16© IF R=C RND B=D THEN PRINT 

TROUl_. YOU DELIVERED " ; S.: " LETT 

F.R5"; K. 

19© PRINT RT 11., 15.; "U" 

£0© LET B =S +2 * i INKEY $ = “ 8 “ ? -£*• i I 
vtH.EY 

210 LET A=R+2* f. INKEY$= i -2t(I 

MKEY$="7"5 

£2© IF G<fi THEN LET C=C+1 

£3© IF OR THEN LET C=C-1 

24-0 IF D;S THEN LET D=D-I 

£50 IF D c.B THEN LET D=D + 1 

260 CL5 
27© GOTO 11© 


SINCLAIR PROGRAMS November/December 1982 




OUTU 


appropriate key before they can kill 
you. The pleasure of shooting first is 
enhanced by those fine graphics. 
Graphic Notes: 

359-Graphic shifted 1, graphic 
shifted 2. 

1010 - PRINT AT x (F) +1. Y; A & (I). 


S OME OF the best graphics we 
have seen are the striking fea¬ 
ture of this reaction game for the 
16KZX-81. 

D G Lomas, of Dukinfield, 
Cheshire, who submitted Outlaw, 
has managed to achieve something 
approaching the effect of a slow 
animated film by drawing and 
re-drawing the outlaws as they fall 
dead. 

There are five of the villians who 
reach for their guns in a random 
order. Your task is to press the 


) ) 


1 RflWD 

5 LET F=6 

6 LET N=0 

7 DIH XtSA 
S DIH ft *6) 

10 DIH SA 

12 LET R$C1A=” 

14- LET fl$r3J=" A" 

16 LET R$ * 4.A =" A L" 

20 FOR Y =2 TO 26 STEF 
22 LET F =F+ 2 
25 LET X(F>=INT 
30 LET R»V2A 


VRMD* 17 A 

fCHR$ l'F + 156 


40 GOSUB 1000 

50 NEXT V 

51 LET U=IHT VRM£Vt»7IA 420. 

52 FOR 5=1 TO U 
54. NEXT 5 

60 LET T=XNT fRHS>»SJk *1 

62 FOR R=1 TO 5 

63 IF =0 THEM SOTO 66 

64- NEXT ft 

65 GOTO 162 

66 IF RITA=1 THEM GOTO 60 
70 LET ft <TA =1 

Q0 LET Os2<M6*(T-lAA 
£>+3?■ £$>Z NT RT XfTk 

100 LET L=IMT fRH£V»SA*3 
105 LET T»*STR$ T 
110 FOR R=1 TO L 

lie 5Ex# N g CrV * =T * THBH 6 *to 
132 FOR U=1 TO 5 
ftT 

* T ~;tr 

139 NEXT U 

14-0 FOR U = 2 TO 25 

14.1 NEXT U 

oi3 ? ? R » NT * T »•";tab 

Q+if-f*”* 7 ’ »‘';trb 

162 LET N P$c" ®rl®;"VOUR DER0" 
^163 IF N>I C OR N=0 THEN LET P*=~ 

ss^Su9Tpr' Si " vw * :i! - LEc ' •• 

170 STOP 

D = Tf ' iT +3 

202 LET M=N*1 
205 LET F =T 
20S LET V=2+(S» fT-lA t 
210 GOSUB D»100 
220 GOTO 51 

300 LET ft*V2A=* 

301 LET R**IA=' 

302 LET ft$13)=' 

303 LET R*<4-)=* 

310 GOSUB 1000 


X 


t. 


U 






LET B»V23=" 

LET B* ¥33 = "« A »" 
i LET R$ ¥23 = " flfti " 

i LET B* ¥4-3 = " < " 

: SOSUB 2000 
i LET -Jb" 

i LET R*¥23=" Jfc- 

' LET R«f3}sr W 

► GOSUB ides 

; LET R$<43=".— 
l G03UB 1BO0 
: LET X ¥T3 =.X ¥T3 -»2 
' LET R$ ¥33 ='W™W* 

r LtT H? , UVa ” 
i print «t xtTi ,y;‘* 

■ GOSUS XOOO 

I LET fl$a.U" 

LET B* ¥23 = " _W_ " 

LET fl$f3)s''U^- 

LET B$ ¥4-3 = " » * « * 

GOSUB 2000 

LET B$ ¥23 = " _ « 

LET R$ ¥33 =*'l-d&^ 

LET R* ¥4..* =" « « 

GOSUB 1BOO 
RETURN 

LET B$¥2 3 =" Jgm. » 

LET R$¥23=" 

LET B$V33=" J*L ~ 

LET B$ ¥43 =~ 4 L" 

GOSUB 2000 

LET B$¥23=" «~ 

LET R* ¥33 =" " 

LET R$ ¥43 =" %V " 

GOSUB 2000 
LET BS ¥23 - 

LET R$ ¥23 = “f*|PV 
LET R$¥33=" 

LET VW'* 

FOR U=1 TO 6 
NEXT U 
GOSUB lOOO 
LET R$V23=" 

LET R* ¥23 = "■»" 

LET B$ ¥33 ="-W|Wr3' 

LET B$¥43="jJ ■!" 

PRINT BT X ¥T3 
FOR U=1 TO B 
NEXT U 
GOSUB 2000 
RETURN _ 

LET R4¥2A=" -®-*' 

LET B$ rsi=~ A ~ 

LET R$ ¥4-.* =~ Jl' 

LET R* ¥2A =~ A" 

GOSUB 2000 

LET R$¥23=" _ " 

LET B*¥23=" -W~" 

LET B$¥33=" JW»‘ 

LET R$¥43=" JHL“ 

FOR U=1 TO B 
NEXT U 
GOSUB 2000 
LET B$¥2>=~ Jfc 
LET B*¥33=" 

LET B* ¥4-3 =~ * ^ _ .. 

PRINT BT XVTA 
GOTO 2000 
RETURN „ __ 

LET R$ ¥23 =' 

LET B$¥23= 

LET B* V33 A .. 

LET R* ¥4-3 = 4 fc 

GOSUB 2000 
LET R*¥23=" O 
LET B* ¥3> = * Sr. 

) LET R* ¥43 = ' Sir 
. FOR u=2 TO S 
! NEXT U 
; GOSUB 2000 

> LET B*¥23»" S»5 

■ LET Sf fSi /T * 

L LET R$ ¥<43 =** SST 

5 LET R*¥23=~ -®~" 

3 FOR U =2 TO B 
3 NEXT U 
3 GOSUB 2000 
9 LET R*¥23«" 

5 LET B* ¥23 = 
l LET B* ¥33 
5 LET B* ¥4.3 ="f — la' 

3 PRINT BT X VT3 ,Y*3; 

9 GOSUB 2000 

3 RETURN 

3 FOR 1=2 TO 4 

9 PRIWT BT X ¥F3 *X, Y ;B*¥13 

a NEXT I 

a RETURN 
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S KY SHOOT for the Spectrum is Move left with 1, right with q and 
a kind of target shoot against the fire with 0. 

dock- A challenging game from David 

You have four targets—which you Price of Glenfields. Caerphilly, 
must destroy in an unreasonably which proved too difficult for your 
short time. fast-fingered reviewer. 


BORDER 4. BEEP 


2 PRINT AT INK O, "Use SS 

v TO 8T«RT-- flnr 16 - J - ' PREES 

4 PAUSE © 

5 CLS 

9 BORDER 1 

, L I? K = ' q=Q LET a = 1 

, L iZ b=q-. LET c=5: LET d =3 
•_•© LET 2=<J rd : LET f=e. LET <3 
= t+e: i_ET h=gfi * 

70 LET i=17 LET J = q • LET 
190 CLS * 5,-3 

- «T C.,g.; AT c ,h . ‘'+ ' 

210 PRINT AT gta,b., INK - « 

2 30 PRINi AT i . S+a ; 

240 PRINT AT i.s+aj” 

242 LcT y =<-!«-! 

? F -* = ’ : HN ? * +a =e OR i=. AND 
s+a=f OP. r=C AND 3+A-S OR i=c A 
md s +a =h THEN LET J = - r 1 
2*® J r ^4- = > ~ ftNp--S»a = - THEN PRINT 
|l RT BEEP .25., 1 

tmw ? F r-4- =C RNL V^ -t_ a = f TH EN PRINT 
-* * .^15 BEEP ,55,1 

twk ? P q 4- = C flNC> --g THEN PRINT 

£NK 1, AT C .. 9 ZS3S BEEP .25.1 
f F ^4- = C - N ° 1 v f ~j" a =b THEN PRINT 
INK 1., AT c h . ’ ?gB18l " . BEEP . as , ± 
250 IF i=c THENGO TO 550 ’ 


255 IF J = 4 THEN GO TO 1000 

256 IF s>=5? THEN LET s =27 

257 IF s<=© THEN LET 5=© 

2t>0 IF INKEY $» = “g" THEN LET 3=3- 


270 IF INKEY *as" 


THEN LET 3 =3 4 


2S0 IF INKEV$ ='' 0" THEN LET i =i - 

290 IF y ; =95 THEN GO TO 2O0S 
300 GO TO 21© 

350 LET q =<5 f i 

4©0 PRINT AT 21,5, 'You have tax 

en "shots'* 

m T 2 r S !' I ^ r; - 


40i LET i=I“ • - 

405 FOP « = i TO 2© 

406 NEXT W 

407 GO TO 21© 

1©S0 BORDER 2- PAPER 7- CL c - 
100 1 PRINT AT I.,©; INK 1 T= ?r l7T ;3 Hfe 


. q_. AT IS . b . IN 

Hs*- try .- (y/r«) “ 

ISP© INPUT as 
103© IF a$ = y ' OR a S =" y 
TO 5 

1035 STOP 

200© PAUSE I©©. CLS 
30O2 PR I’ i" AT 3 . © i NK 


202© IF aS=' y' OR -3S = " 
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S COFFER is a version of the Pac- corner you. Their best is always final score is displayed and any key 
man game for the unexpanded good enough. will re-start. 

ZX-81 and it is difficult. Move Sometimes they approach from From Mark Blackwood, of 
yourself around with the usual opposite sides, sometimes they Essington. West Midlands. Graphics 
cursor keys to avoid the intel- corner you. and sometimes they will notes: 

ligent spooks which try their best to merge and chase you in tandem. A 6—Thirteen inverse full-stops. 
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Y OU WILL probably recognise 
Surround as soon as you RUN 
it. It is a version of a fairly stan¬ 
dard routine in which you are 
required to surround your adversary 
before he can surround you. Both 
players are in continuous motion 
and are not allowed to cross their 
tracks or those of their opponent, or 
to hit the boundary or the score 
display. 

What will surprise you is the way 
in which the ZX-81 can recognise 
two keys when pressed simul¬ 
taneously. That is not possible using 
INKEY/S and is achieved by utilising 
address 16421. This contains a 
number which changes as groups of 
keys are pressed. Lines 185 to 260 
translate the number into a series of 
possible moves. 

Black uses keys 1-5 to move up, 
Z-V to move down, Q-T for right and 
A-G for left. Grey uses the keys 6-0 
for up, Y-P for right, B-M for down, 
and H-NEWLINE for left. After a 
crash the other player scores one; the 
winner is the first to reach 15. 

The routine enabling two players 
to participate can obviously be used 
in many graphics games. J 
Winchester of London Wl3, submit¬ 
ted the program for thel6K ZX-81. 
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P UT YOUR finger on the laser 
fire button and get ready to fire 
because the Zags are on the 
way. They are nasty little creatures 
whose aim is to land on earth and 
colonise it. 

Instructions are contained within 
the Zag-blasters program along 
with REM statements to show how 
the game works. As well as being fun 
to play, the game could also teach 
you how to write invader-type pro¬ 
grams in Basic. 

Zag-blasters was written by J 
Bedware and I Yeomans, of Solihull, 
West Midlands. The game will run 
ona!6K Spectrum. 





1 LET tv =2 : LET v =2 

5 LET i=l; LET a=2 

6 PFm instructions 

1C INPUT "Instructions ?";bj: 
IF bS = "n“ THEN GO TO 200 

29 BORDER 9: PRPEP 9: INK 7 
3© PRINT hT 0 , 4 .; "Ue l cone to Zs 
g -Btasters”; RT 2/2.- "By J, Bedwar 
a and -J Yeosssns ©";PT 5,-0; "zsgs 
are invading.- now defend "; R1 3 
,10; your rights* ";RT 24.,S;"1 
for up"; AT Ib/S.- "2 for down';RT 
18/8J"8 to blast the Zags" 

e-0 FOR n = _40 TO 39. BEEP 0 * 2 .. .n 
: GEER 0.01/0-10: NEXT n 
70 CL5 

9@ REH &ra* board 

100 PRINT RT 3.0: INK 2 }"_ 

_";RT 2 


6"/ 0 ; INK 6;' 


ilOog SIS ¥§ 7 1 RES SR3PHI0S 

IS© RERD 


SIS FOR n =0 TO 7 
550 READ f 

330 POKE USR "tr+n/f 
535 NEXT n 
O4-0 FOR n =0 TO 7 
550 RERD g 
550 POKE USR 
370 Red Case sorsing 
530 BORDER 3: PRPER ® ; 
290 LET x — 2 0_ LET g =0: 


n =175 TO 


PLOT 0/7?: N 
b=92: LET c =10 


300 FOR 
EXT n 

3 le> LET a =3: LET 

0 

S?ll -P {RN0*20i+10 TO 0 

itr SllKT g; 5;Si :t:: eEEP 

^4-03 PLOT 3/b. PLOT INVERSE 
tI T i*=INKEY$ 

xtv?? IF at= a “ *>* THEN LET 


T*b = b+S S * = " 1 ” «**> b <136 THEN LE 
Xax+f F 3* = "2" RND x <27 THEN LET 
_^ F 3*="2" RND b>3S THEN LET 

4I| a»R8rS; sat:8-- 

O*Si®0 F C=X HN£> a * = " 0 '’ 7-HEN U GO T 

iyl PRINT = RT T e^P / ^INkV^ BE 
E *S§*Si^f a ? : PRINT e,£;« » 

‘90 TO 391 

1000 REH Data for arsehir, 

pi 

iiSp T ? a f ; -> F0 NESf e ‘ n T D N g? 

p 1 |^|i NT flT sl 's; ink L 

TO i ?i00 J u ‘ =@+1; IF then go 

5050 GO TO 391 

You've won 

5100 PRINT RT 10.5; INK ft "jaa«. 
n- f RUN Bd ” ; FDR n= ® T0 25 *' NEXT 
Zs 95 landed 

6 Itep 3 Si FO * n=:30 to c* 

- eP ~ 3 BCEP ,01 .n- NEXT n- NE 


PT 21/i; IN* 

n-txW v=v * i: Jp v«i® THEN go 
§030 GO TO 391 

6100 PP^ NT*%f INK 2 .. 2ag . 

*$ V % FOR TO 2 250 89 ^ 


"*J ”: L 


NE 
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H ERE IS a version of Solitaire 
for the 16K ZX-81. The listing 
is very well done but so many 
checks are required for illegal moves 
that there is a lengthy pause between 
the display for each new position. 
See if you can condense it. 

Line 1 contains the REM state¬ 
ment for the win routine. Enter it as 
listed, then type “POKE 16521.126"; 


"POKE 16523. 118”; “POKE 16528. 
119"; “POKE 16530. 120”. LET and 
RETURN are listed by entering and 
deleting THEN. 

Unfortunately we do not know 
how to win at Solitaire so we could 
not test the win routine. We have 
had to trust Mark Harper, of 
Swindon, Wiltshire, who sent the 
program. 


_ 1 REN E£RND* CHRS *7? RETURN *? 
C"YST-TiiCOS y LET 

2 GOSUB 3S8G 

3 GOTO 2200 
S 5LQU 

2© PRINT fiT 20,0;"MOUE FROM? 

15 INPUT' FS 

27 IF F $ = -•* THEN GOTO 15 
20 PRINT RT 20.9; " " ; F$ ( 2) : •• •• 

25 PRINT ” TO?" 

30 INPUT TS 

32 IF T$ = *' “ THEN GOTO 30 
34. PRINT RT 20.15;" ";T$(1);". 

*•_: T$ (25 * * 

35 LET FsURL F$flJ 
37 LET G=URL F$C2) 

36 LET T =UflL T$ £ 1} 

39 LET U=URL T$(2) 

4-0 IF S(F,G) s-1 THEN GOTO 10 
50 IF S CT, U3 = — 2 THEN GOTO 10 
60 IF F=G AND T=U THEN GOTO 10 

70 IF URL F?>77 OR URL T$>77 O 

R URL F$<11 OR URL T$<11 THEN GO 

TO 20 

30 IF RES CT-Fi<>£ AND RBS (U- 

G) < > 2 THEN GOTO 10 

85 IF FOT RNB G < >U THEN GOTO 

20 

36 LET X$=5TR$ ((URL F$+UAL T$ 

87 IF S£F,G)=e THEN GOTO 10 
36 IF S(T.U)=1 THEN GOTO 10 
39 IF S(URL X$(l},UAL X*£2J)=0 
THEN GOTO 10 
90 FRST 

92 LET 5(F,G)=0 
200 LET 3CT,U}=1 

0 110 LET S (UAL X$(l) ..URL X* (2) ) = 
220 LET C=C+2 

127 IF C =32 RND S(4,4) =1 THEN G 
OTO 3000 
1002 FRST 
2002 CLS 

1603 PRINT *• 1 2 3 4-5 6 7" 

1004. PRINT 

202© FOR R=1 TO V 

202© PRINT R;” 

203© FOR B = 1 TO 7 

104.0 IF S(R,B3=-1 THEN PRINT ** 
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IV V 


105© IF S t A . B ) =1 THEN PRINT “Jg " 

1060 IF S(R.B)=B THEN PRINT "X " 

1065 IF 6=7 THEN PRINT R: 

1S70 XF 6=7 THEN PRINT 

1SS0 XF 6=7 THEN PRINT 

1090 NEXT B 
1100 NEXT R 

1110 PRINT - 1 2 3 4. 5 6 7” 

1111 PRINT RT IS.16;"MOUES:“;C 

1112 GOTO S 

6005 POKE 16527.0 
6007 RRND USR 16514- 
6010 FOR X = 1 TO 63 
6020 POKE 16527,X 
6030 RRND USR 16514- 
604-0 NEXT X 
6050 POKE 16527.0 
3060 RRND USR 16514. 

6070 PRINT RT 3.0; 

3030 PRINT RT 12,IS;"CONGRRTULRT 

IONS" 

6090 PRINT RT 21.17;’PRESS NEULI 

NE" 

3130 INPUT N$ 

6113 Ci_S 
6120 RUM 
9001 FRST 
9332 CLS 
9335 LET C=8 
9313 DIM 5(7.71 
932© FOR flsl'TO 7 
9030 FOR 6=1 TO 7 

904.0 IF ROl AND R<>2 AND R<>6 R 

HD A 07 THEN GOTO 906S 

904-5 XF B < > 1 AND B 02 RND B<>6 R 

ND 6 0 7 THEN GOTO 9©B0 

9Q50 LET SCR.Bi=—1 

9055 GOTO 907E 

3060 LET SCR.BI=1 

9073 NEXT E 

9060 NEXT R 

3030 BET SC4.. 4.3=0 

3130 PRINT AT 20.10. ’’INSTRUCTION 
57 Y/N“ 

3110 INPUT Z$ 

3X20 XF Z$=”N" THEN RETURN 

9135 3LOU 
314-0 CLS 

9150 PRINT - 

9160 PRINT "‘a’ THE OBJECT OF TK 


9160 PRINT "m THE OBJECT OF TH 
E GAME IS j?&” 

9170 PRINT "88 TO REMOVE ALL THE 
PEGS S J8" 

9160 PRINT ”88 EXCEPT THE LOST UH 
ICH 88” 

9190 PRINT "88 MUST FINISH IN THE 
CENTRE M" 

9200 PRINT "88 SPACE. 



9210 PRINT ;'8B SPACES ARE <X> . 

9220 PRINT "88 YOU TAKE PIECES B 
V HOPPING 81” 

9230 PRINT "$OUER THEM INTO AN E 
MPTY SPRCEI" 

924-0 PRINT "igBEYONO., REMOVING FRO 
M PLAY THE88" 

9250 PRINT "M PIECE YOU HAVE HOP 
ED OVER. J!" 

9270 PRINT '"m EACH MOVE MUST 6 

EMADE IN A88" 

9280 PRINT ;;88 STRAIGHT LINE. 

9310 PRINT "}$ THE COMPUTER UILL 
NOT 88” 

9320 PRINT ACCEPT ILEGAL MOV 

9330 PR . 


EACH MOVE MUST B 
STRAIGHT LINE. 


THE COMPUTER UILL 
ACCEPT ILEGAL MOV 


934.0 PRINT AT 21., 17; "PRESS NEUL I 
NE " 

9350 INPUT N* 

9360 RETURN 

94-10 SAVE "SOLITAIRE" 

94-20 PRINT AT 10., 10; "SOLITAIRE" 

94-30 FOR X = 1 TO 100 

94-4-0 NEXT X 

94-50 CLS 

94-60 RUN 
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I F YOU are struggling with math¬ 
ematics homework. Lineal re¬ 
gression calculates those tricky 
problems using the ZX-81. It relates 
both x to y and y to x, as well as 
giving the probable errors involved. 

From Martyn Whitwood, of 
Rotherham, South Yorkshire. 
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1 REM '*LR ** 

10 LET A=0 
20 LET B=0 
30 LET C=0 
40 LET D=S 
50 LET E=0 
00 LET H =0 

90 PRINT M HOw HftNY FfilRS OF NU 
MBERS?” 

100 INPUT N 
105 CL3 

110 PRINT "INPUT X THEN Y." 

120 INPUT X 

130 INPUT Y 

135 CLS 

14-0 LET R=R+X 

150 LET S=B4-Y 

160 LET C=CPX*X 

1T0 LET D=D+Y*Y 

100 LET E =E+XiY 

19© LET F=R/N 

200 LET G=B^N 

2ie LET H=H+1 

220 IP H<N THEN 6CTU 11© 

270 LET I=CN*E-A*B) S (N*C-R*A1 

26S LET <J —G — I *F 

290 PRINT "T^=-; U;; I; -X- 

300 LET K — vNiE-RtB) / tNlfP-B*B) 

310 LET L=F-KiG 

320 PRINT -x = -; l; -+*•; K; "Y" 

330 LET P=3SJR (D/tN-1) - (B*B/(N* 
CN-1)) )3 

<N-1> VfT ° =SOR tC^-tN-1) -(ASA/ CN* 

350 PRINT ”X SIGHfl CN —I) = « : O 
360 PRINT -Y SIGHR(N-1)= ";P 
370 LET Zi =SGR { ( tl/N)*C) -F*F) 
300 LET R=SOR t C tl/N) *DO —G*G) 
390 PRINT "X SIGHfl (NJ = “ ; Q 
4-00 PRINT ”Y SIGHfl CN) =. **; R 
4-10 LET 5=U1/N} iE-tP*G)}/(S*R) 
4-20 PRINT - CORRELATION COEFFICI 
ENT(R)=“ 

430 PRINT -R=”:S 

4.4.0 PRINT *' STANDARD ERROR OF ES 
f IMRTE ** 

4.50 PRINT *S£YJ= *\;R*5QR (1-5*5 


4-6© PRINT -S(X3 = 


;S*S8R (1-5*0 








We've got big ideas about 

you and your 
Sinclair 


Whether you’re new to computing, or an old hand, you’re 
certain to be an enthusiast. That’s why we introduced 
Sinclair User magazine for the latest news, techniques 
andenhancementstomatchyourenthusiasm(now with new 
‘Spectrum User’ supplement!)Next, its companion magazine, 
Sinclair Programs, became an overnight success with 40 
NEW programs, ready for you to key, in every issue. 

Now the exciting new Sinclair Projects completes your store of 
possibilities with a huge increase in computing potential for you 
to explore. 


Sinclair Projects is published on alternate months to Sinclair 
Programs, so there’s always something new to test your skill. But 
here’s the best news: when you 
subscribe to all three Sinclair 
magazines, you get the first 
three issues of new Sin¬ 
clair Projects absolutely 
free! 


We know you’ve got big ideas about your Sinclair. Make sure you 
live up to them with threefold computing pleasure. Fill out the 
order form now and we’ll send you the first ideas-packed Sinclair 
Projects - hot off the press. 


Because we know you’re always looking for 
new ideas to make the most of your Sinclair 
computer, we’re making sure you never run out 
of steam! 


Just announced - and due out in December-is 
Sinclair Projects magazine, full of fascinating 
schemes to tax your skills and reveal the practical 
potential of your Sinclair in applications like con¬ 
trolling lights, upgrading computer graphics, house¬ 
hold security, and many more. 


Mail to: ECC Publications Limited; 30-31 Islington Green, 
London N1 8BJ 


Sinclair User/Spectrum User; Sinclair Programs; Sinclair Projects 

Yes - I’d like to subscribe to: 

Sinclair User (12 issues - price £9.00) including special ‘Spectrum User’ supplement in each issue. 
Sinclair Programs (6 issues - price £6.60) 

Sinclair Projects (6 issues - price £6.60) Remember you get the first three issues FREE if subscribing to all 
three magazines! 

I enclose a cheque for£_ (deduct £3.30 from total cost if subscribing to all three 

publications) 

Please charge my credit card Card name_Number_ 

Name _ 

Address__ 


Signature_Date 

NB This offer applies to (JK subscribers only. Overseas rates available on request. 




Something old, something new 

the first 



annual 


The complete guide 
to the last year 
of Sinclair computers 

The world of Sinclair computers is fast-moving, with 
new developments almost daily. During the months 
since its launch in April, Sinclair User has attempted 
to keep you up-to-date with all that has been 
happening. 

Now, however, we feel it is time to take stock of 
what has been happening during those months. So 
we have decided to publish The First Sinclair User 
Annual. 

We have asked all our top writers to give their 
impressions of the last 12 months and chosen the 
best articles and programs from past issues. 

It will allow you to keep abreast of some of the 
things you may have missed and to assimilate the 
changes which have overtaken all of us so quickly. 

The First Sinclair User Annual will be available 
from all the usual newsagents, price £1.50, from the 
beginning of December. 

Order your copy now to avoid being disappointed. 



GETTING THE MOST 




mcsc uuya,iiicic5ccm iuuci 

new developments in micros every ip/ 
five minutes. How can you stay in i ^ 1 »«■ 
touch? Which Micro & Software (&•;' ' 
Review brings you all the most 
important news and the most interesting 
facts every month. 

As well as our unique buyers K 
guide to software packages (which is 
updated every month) we review soft- V\ 
ware in depth. This month we analyse 
PLANNERCALC and tell you whether its' 
low cost represents good value, and how® 
it stacks against VISICALC. ® 

We also take a long look at the 
new cash flow forecasting package 
CASH FAX. Every month we tell you what's 
available, what's in the pipeline and what's 
right for you-over a range of software for 
home, business and school users. 

We don't stint on hardware coverage 
either. Not only do we publish the most 
extensive buyers guide available (over 100 
micros in detail) but we also publish reviews 
that really take machines 
apart. This month 


’ we put two British micros under the 
microscope - the new 64K MIMI 802, which 
made us wonder whether British could be 
best again. And the £89.95 JUPITER ACE 
which is not only very cheap, it's also the 
world's first micro to use FORTH. Does that 
make for speed, versatility and ease of 
programming-or should it have been left 
with the mainframes? 

With all this you get the best news, an 
informative (and fascinating) letters page, 
and a problem-solver section written by two 
of the most respected experts in the business. 
November's issue is at all good newsagents 
from October 15th. Don't miss it. 

THE A TO Z OF MICROS 







ORDER COUPON 


Please send me. 

SPACE INTRUDERS at 
£5.95 each 

METEOR STORMCS3 at 
£5.95 each 

I enclose a cheque or P/O for 


[cheques payable to 
QUICKSILVA3 


Name 


Address 


SPACE 
INTRUDERS 
WITH MUTANTS 


METEOR 
STORM 
WITH SPEECH 


• Four different types of 
Alien. 

• Random saucer gives 
mystery points. 

• Mutant Alien from second 
Attack-Wave. 

• Bonus base at 50.000 
points. 

• Aliens explode when hit. 

• Left, right and fire. 

• Full sound effects and 
colour. 


• Three different types of 
meteor. 

• Two different saucers. 

• Full screen'wrap-around. 

• Bonus ship every 1 0.000 
points. 

• Superb explosions. 

• Left, right, thrust, fire and 
hyperspace. 

• Sound effects and speech. 


BOTH OF THESE FULL FEATURE GAMES INCLUDE 

• Personalised high score table. 

• Hold feature, suspends game at any time. 

• Progressive difficulty. 

• Full "Attract Mode” with instructions and scores. 


Supplied i ____ 

SEE US AT THE MICROFAIR Microscene Brum '82 show and the P.C W Show 

j£KS£LV^Pep^SPB^gJ\lortham Road, Southampton SQ2 OPB 

















